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DATABUS 1\, DBllSYSf is a hiqh level business language 
compi 1 er designed for use with the Datapoint Diskette Operating 
System, DOS,C, This User's Guide describes the characteristics ana 
use of the DATABUS 1100 Compiler* The same system is provided by 
DBUASYS for the Cartridge Disk Uperatinq System, DOS.A; and by 
OBUbSYS for the Mass Storage DisK Operating System, DDS,B. All 
references in this manual to DUS.C apply equally to DOS, A and 
OUStti. 
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CHAPTEH 1, INTRODUCTION 



DATASUS UOO is similar to the Datapoint DATASHARt 3 Multiple 
Terminal computer system. The primary difference is that 
DATASHARE 3 supports multiple remote terminals whereas DATABUS 
liOO supports only the processor console as an operator 
input/output device, DATABUS UOO also handles a high-speed line 
printer or servo printer and provides i ndexed-sequent i al as well 
as random and sequential file accessing, thus providing a powerful 
data entry and processing facility. 

In addition, DOS, C with its variety of utility ana higher 
level language systems may be used in conjunction with DATABUS 
ilOO^ enabling processing of tasks not appropriate to the DATABUS 
language. 

Using virtual memory techniques, DATABUS UOO allows programs 
with a 16K byte area for executable statements. This, in 
combination with the ability of the compiler to accommoaate over 
3400 labels^ enables the user to create and use progr^ams of over 
one hundred pages (a very large high level language program). To 
provide rapid program execution, the data area of the executing 
program is maintained in main memory and not swapped. 

Any of the Datapoint system printers may be connected to the 
DATABUS UOO configuration. Printer output is buffered to aTlow 
maximum program execution speed. 

All program execution in DA1A8US UOO occurs in the DATABUS 
language. Console command interpretation is handled in a special 
DATABUS program, the f^iASTER program which enables the user to 
completely define his own console command and security system. 

Program generation is performed under the Flexible Disk 
Operating System, DOS, C, using the general purpose DOS editor and 
DATABUS 1 100 compi ler. 
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CHAPftR a. STAltMEi^T STRUCTURES 



There are five basic types of statements in DATAbUS UOOs 
comments compiler dipective^ file declarationr data definition^ 
and program execution, 
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dtS Hie declarations and data definitions 

File declaration and data definition statements must occur 
before any proqpain execution statements and are used for setting 
yr> all of the loqical files and data vanaoles in the program. 
All file (ieclaration and data definition statements must have 
labels. All compiler directiver file dtjclaration^ and data 
definition statement labels must be unicjue among themselves. 
Program execution statements must appear after any file 
declaration or data definition statements and may or may not have 
labels. The labels on program execution statements may be the 
same as labels on the compiler directive* f i 1 e decl arat i on* and 
data definition statements. Program execution always begins with 
the first executable statement, 

2,^ Program execution 

Labels for variables and executable statements can consist of 
any combination of up to eight letters ana digits beginning with a 
letter. The following are examples of valid labels! 

A 

ABC 

AlBC 

A8C0EP 
BIGLABtt 

The following are examples of invalid labels; 

HI^JK (contains an invalid character) 
auOGS (does not oegin with a letter) 

Statements other than comments consist of a label field* an 
operation field* an operand field* and a comment field. The label 
field is considered empty if a space appears in the first column 
of the line, Ihe operation field denotes the operation to be 
performed on the operands «/hich follow it. In many operations* 
two operands are requi red i n the operand field. These operands 
may be connected either by an appropriate preposition (BY* TO* UF* 
FKU'^* IN* rUTH* USING* or IMU) or a comma. One or more spaces 
should fol low each element in a statement except where a comma is 
used* in which case the comma must be the termi nat i ng charact er of 
the previous element and may be followed Py any number ( i nc 1 udi ng 
zero) of spaces. The following are all examples of valid 
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statements: 



lABIUi 


ADD 


PCS TQ TOTAL 


LABEU2 


ADO 


PCS OF TOTAL 


tABtL5 


ADD 


PCS, TOTAL 


LABEia 


ADD 


PCS, TOTAL 



THIS IS A COMMENT 



Note that any preposition may be used even if it does not 
t-ake sense in English, The following are examples of invalid 
statements; 

LABELi ADO PCS TOTAL (mi ss i ng connect i ve) 
LABEL2 ADD PCS , TOTAL (space before comma) 

Certain DATApUS 1100 statements allov^ a list of items to 
follow the operation field. In many cases, this list can be 
longer than a single line, in which case the line must be 
continued. This is accomplished by replacing the comma that would 
normally appear in the list with a colon and continuing the list 
on the following line, For example, the two statements; 

DISPLAY A,ti,G,D; 

£#F,6 
DISPLAY A,0,G,D,E,F,G 

will perform the same function* 

d,S Li ter al s 

In an effort to reduce the amount of data area needed by a 
program, -literal s are allowed in certain statements which swouTd 
otherwise need constant data in the user's data area. The 
instructions which can contain literals are; STOKE, ROLLOUtV 
CHAIN, HOVE, APPEND, MATCH, ADD, SUB, MULT, DIV, CONPARE, OPEtsI, 
PREPARE, REPLACE, CHECKU, ano CHECKIO, In all except I/O 
statements and the ChECn verbs, the literal must be the first 
operand. The literal is always enclosed within a pair of double 
quotes (see the following section on the forcing character) and 
may be from I through 40 characters in length (excluding the 
quotes), s^vhen a literal is used as a string variable, its 
formpointer is always equal to one ana its logical length always 
points to the last character that is quoted. Examples of the 
statements which can contain literals follow; 

STOKE "AHPLES" li.TO X OF SUS2,S5 
ROLLOUT "CHAIf'j HX^^" 
CHAIi^^ "NEXTPkOG" 
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OPtN FILll#"DATAFab" 

PRtPARE FlLElf "UStRDATA" 

MOVE "MESSAGE" TO M34a2 

MOVE "100.55" 10 VAtUE 

APPEND "•" TO STRl 

MATCH "YES" TO ANSWER 

ADO "25.<<6" TO TOTAl 

SUB "1" FROM COUIMT 

MUIT ",1" BY TAX 

DIV "33.33,55" iisiTO FACTOR 

COMPARE "10" TO LINENUMB 



2,b THe forcing cKapacter 

The pound sign (#) is Interpreted by the compiler as a 
forcing character in any quoted item which can contain multiple 
characters. The character immediately following the pound sign is 
used in the quoted item simply as a character value regardless of 
its significance to the compiler, Thusr the pound sign itself and 
the quote I") may be used in DATA8US HOC statements. For 
example? 

DISPLAY '»CUSTOMER#» SHOULD BE #"a2a2»"" 

would displ ay exact ly; 

CUSTOMERfll SHOULD BE "222?" 

on the screen. Note carefully the wording used aoove that 
excludes the cases of RESETf Cf^ATCH* and CMOVE since those 
operations cannot have quoted items which contain multiple 
Characters. For exampler 

CMQVE """ TO STRING 

would be used to move a double quote sign into the variable 
STRING. Howeven the use of a literal in a MOVE instruction would 
require the use of the forcing character? even in a single 
character move? since the quoted item can be a mutiple character 
quote. For example: 

MOVE "#"" TO STRING 

would be used to move a double quote sign into the variable 
SIRING, The RESET? C^'.UVE? and C^.ATCH instructions are the only 
exceptions to the forcinq character convention within quoted 
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items* 

Exawpl esi 



RESET STRING TO "#" 
CHDVE "#" TO STRING 
CMATCH ""» TO STRING 



dml A sample program 



. PROGRAM TO DISPLAY A NUlTXPLIC AT ION 1 ABLt 

COUNT 1 FORM "0" 

COUNTS FDRW «0" 

PROD FORM 2 

* 

, HERE IS THE StAKT OF THE EXECUTABLE CODE 

START DISPLAY *ES, "MULT IPLICAT ION TABLEJ%*N 

LOOP MOVE COUNT! TO PROO 

NULT COUNTS BY PROD 

DISPLAY COUfMTlr"X%COUNTa," = %PROO," %*N 

ADD "I" TO COUNTa 

GOTO LOOP IF >iOT OVER 

ADD "1" TO COUNT I 

GOTO LOOP IF NOT OVtR 

STOP 
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CHAPTER 3, FIUE OECLARAIION AND DATA OkFINlTION 



There are two types of statements in DATABUS UOO which cause 
space within the user's data area to be assigned. The first is 
loQlcal file declaration v^here the space Is used to store the DUS 
system Information about the file being used and the second Is 
data definition where the space Is used to keep the variable 
Information within the DATABUS 1100 program, 

i, I File dec 1 a rat 1 on 

Two types of files can oe declared In DATABUS 1100, The 
first is a type that will be used for ranoom or physically 
sequential accessing. This type Is declared using the FILE 
statement; 

iNFiuE file: 

The label IfSiFilt will be useo In all disk I/O statements that are 
to use this part icul ar logical file. This statement causes 17 
bytes of data area to be consumed. This area stores the lb bytes 
usea In the DOS logical file table^ a space compression countefr 
and a flag indicating that this is a physically random or 
sequential access only file. Note that since logical file 
information is stored in the user's data area# the user may l^ave 
any number of logical files active at any one time providing his 
data area can contain all of the necessary oeclaration 
1 nf ormat 1 on. 

The second type of f 1 1 e dec 1 arat Ion is used for 
1 ndexed^sequent 1 al file accessing. This type is declared using 
the IFIL£ statement: 

XSAMFILE IFILE 

The label ISAMFILt will be used in all disk I/O statements which 
i\re to use this particular logical file. This stat<?ment causes 2b 
bytes of data area to be consumed. This area stores the 
information that a FiLt declaration stores plus three three-byte 
pointers for use in the access method. These pointers point to 
the beginninq of the last record accessed (for updating 
operations)^ to the next sequential key (for sequential by key 
accesslny)^ ana to Information in the DOS K.l.b, of the index file 
(used in all accessing operations). 
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5,<? Data def init Ion 

There ure two types of data used within the OATABUS 1100 
language. They are numeric strings and character strings. The 
arithmetic operations are performed on numeric strings and string 
operations are performed oh character strings. There are also 
operations allowing movement of numeric strings into character 
strings and vice versa. Numeric strings have the following memory 
forrnatJ 



0200 1 2 . i 0203 

The leading character C020Q) is used as an indicator that the 
string is numeric. The t rai 1 i ng character (0205) (ETX) i s used to 
indicate the location of the end of the string (kTX). Note that 
the format of a numeric string is set at definition time and does 
not change throughout the execution of the program, A numeric 
string can be defined to contain at most 21 characters. 

^hen a move into a number occurs from a string or differently 
formatted number* reformatting will occur to cause the information 
to assume the format of the destination number (decimal point 
position and the number of digits before and after the decimal 
point) with truncation occurring if necessary (rounding occurs if 
truncation is to the right of the decimal point). 

Character strings have the following memory format; 

9 s the: quick brown 0203 



The first byte is called the logical length and points to the last 
character currently being used in the string (K in the above 
example). The second byte is called the formpointer and points to 
a character currently being used in the string (Q in the above 
example). The use of the logical length and formpointer in 
character strings will be explained in more detail in the 
explanations of each character string hanaling instruction, 
basically* however# these pointers are the mechanism via which the 
programmer deals with individual characters within the string. 
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The term physical length will be used to mean the number of 
possible data characters in a string (IS in the above example). 
The logical and physical lengths of string variables are limited 
to li/\ 

Whenever a data variable is to be used in a program^ it must 
be defined at the beginning by using either the FURH* INIT^ or DIM 
instructions. These instructions reserve the memory space 
described above for the data variable whose name is given in the 
label field. Note that all variables must be defined before the 
first executable statement is given in the program and that once 
an executable statement is given* no more variables may be 
defined. Numeric strings are created with the FORN instruction 
while character strings are created with the INIT or DIH 
instruction. 

i,2,l Numeric string variables 

Numeric variables Qre defined in one of t*«o ways with the 
KjRm instruction as shown in the following illustration: 

tjMRATE FORM a,2 

XAMT FORH " 562,^0" 

In this example* tNHATfc has been defined as a string of 
decimal digits which can cover the range from 9999,99 to •999»99, 
The FPRM instruction illustrated reserves spaces in memory for a 
number with four places to the left of a decimal point and two 
places to the right of a decimal point ana initial ixes the value 
to zero, ^hen the number is negative* one of the places to the 
left of tr»e decimal point is used by the minus sign, XANT* in the 
example* is defined with four places to the left of the decimal 
point and three to the right but with an initial decimal value of 
182,400, The physical length of a numeric variable is limited to 
21 characters (decimal point and sign included), 

5,2,2 Character string variables 

Character strings are defined voith either a 01^' or li^lT 
instruction, DIM reserves a space in memory for the given number 
of characters but sets the logical length and formpointer to zero 
and initializes all the characters to spaces. For examples 



STRiiMb DIN 2'3 

A Character string can also be defined with some initial 
using the INll instruction, For example; 



value by 
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UrUE INIT "PAYRPlt PROGRAM" 

initial Ues the string TITLE, to the characters shown and gives it 
a logical length of 15, The formpointer is set to one, Note that 
in the case of strings/ the actual amount of memory space reserved 
13 three bytes greater than the number specified in the DIM or 
quoted in the iNlT instruction (TITLE occupies la bytes in memory, 
IS of which hold characters) , 

Uctal control characters (OuO to 037) may be included when 
ini tial izing a string. The control character is separated by 
commasr without quotes, and is preceded by a zero, For example, 

TITLE INIT "PAYRULL PRUGRAM% 015, "TESTT' 

would initialize a string with a logical and physical length of Bl 
characters. The octal control character, Olb, would appear after 
the N in PROGRAM and before the first T in TESTl, It is the 
responsibility of the programmer to remember that some of these 
characters (000, 003, Oil, and OIS) are used for control purposes 
in disk files. More importantly, these characters are used as 
control characters in DISPLAY and KtYlN statements, and improper 
use of these characters in such statements can result in invalid 
program execution, 

5,^,3 Common data areas 

Since DATABUS 1100 has the provision to chain programs so 
that one program can cause another to be loaded and run, it is 
desirable to be able to carry common data variables from one 
program to the next. The procedure for doing this is as follows; 

a. Identify those variables to be used in successive 
programs and in each program define them in exactly the 
same order and way, preferably at the beginning of each 
program. The point in this is to cause each common 
variable to occupy the same locations in each program. 
Strange results in program execution usually occur if a 
common variable is misaligned with respect to the 
variable in the previous program, 

b. Define the variables in the normal way in the first 
program. Then, for all succeeding programs, place an 
asterisk in each FURM, DIM, or INIT statement, as 
illustrated oelow, to prevent those variables from t)eing 
initialized when the program is loaded into memory. 
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Exampl es ; 



NIKE FORM 
JUE OIH 
BOB INIT 






STRING WDfvT Bt LUApED" 



Pile declarations may not be made common between programs. The 
re<3Soninci behind this restriction is that mis-alignment in file 
declarations could easily cause catastrophic destruction of the 
file structure under DOS.C. Therefore^ whenever a program is 
loaded, all logical files are initialized to being closed and must 
be opened before any file I/O can occur, if^ihen chaining between 
programsr one should always close all files in which new space 
could have been allocated and then re*open the files in the next 
program. 
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DAIAbUS nOO normally executes statements in a sequential 
fashion. The program control Instructions allow this flow to be 
altered depending on the state of the condition flags. There are 
five condition flags in DATABUS UOO! uVtR# LtSS, EQUAL* /fcRUf and 
EOS, EQUAL and ZERO are two names for the same flag. Only the 
numeric and character string manipulating i nst ruct i onsf the RfcAO 
instruction^ and the READKS instruction alter the states of these 
flags. Reference should be made to the individual instruction 
explanations for the meanings of the flags, 

4,1 GOTO 

The GOTO instruction transfers control to the program 
statement indicated by the label following the instruction: 

GOTO CALC 

causes control to be transferred to the instruction labeled CALC, 

The GOTO instruction may be made conditional by following the 
label by the preposition If- and one of the condition flag names. 
For example; 

GOTO CALC IF OVER 

will transfer control to the instruction labeled CALC if an 
overflow occurred in t he 1 ast ari thmet i c operc^tion, Otherwiser 
the instruction following the GOTO is executed. 

The sense of the condition can be reversed Dy inserting the 
word NOT before the condition flag name as follows: 

G0U3 CALC IF NOT OVER 

meaning control i s t rans f erred only if the overflow (^i d not occur, 

a.^ bRAi'gCH 

The LjRANCM instruction t rans fers cent ro 1 to a statement 
specified by an index. For example: 

BRA.'mCH i\, tJF START fCALtfPilIhT 
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causes control to be transferred to the label In the label Hst 
pointeri to by the index N Ci»e, START i f N = 1 # CALC if N = 2^ and 
PUII^jT if H s i). If H is negative* zero# or larger than the 
number of labels in the \\Btt control continues with the following 
stiitement* The index is truncated to no decimal places before it 
in used ( 1 ,7 s 1) , 

The BHANCH instruction statement may be continued to the next 
line by the use of a colon in place of one of the variable 
delimiting commas, l-or example; 

. ' BRANCH N OF LOOPr START, READlf wRIltlJ 

WEQFI,STUP 

4.3 CALL 

The CALL i nst ruct i on i s very similar to the GOTO instruction 
except that when a RfcTURN instruction is encountered after a 
transfer, control is restored to the next instruction following 
the CALL instruction, CALL instructions may be nested up to 8 
deep. That is, up to eight CALL instructions may be executed 
before a RtTURN instruction is executed, Beinn able to call 
subroutines eliminates the need to repeat frequently used groups 
of statements. Note, however, that in OATABUS 1100 the space 
allowed for a program is very large and that, due to the virtual 
nature of this space, calling a subroutine is considerably more 
time consuming than executing the code in line if a page swap is 
invoked by the subroutine call. Therefore, in many cases it is 
much better to put some code in line instead of making it a 
subroutine, especially if the amount of code is quite small (say, 
less than a dozen lines). This is a trade-off which should be 
considered when one is dealing with code that will be executed 
very often (for instance, code that is executed every time a data 
item is entered), CALL instructions may be made conditional like 
the GOTO instruction. For examples 

CALL FDRMAT 

CALL XCOMP IF LL8S 

a. a RLTURN 

The RETURN instruction is used to transfer control to the 
location indicated by the top address on the subroutine call 
stack. This instruction has no operand field but r^ay be made 
conditional. For example: 

RhTURN 
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RETURN IF ItHO 



a,b STUP 



The STOP Instruction causes the proaram to terminate and 
return to the t^ASTER program. This instruction has no operand 
field but may be made conditional, Kor example; 

STOP 

STOP IF iMQT LQUAL 

Execution of the STOP instruction in the NASTtH program 
returns control back to OQS.C, 

4.6 CHAIN 
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CHAIN NXlPbM 



In the following example* however* the CnAlr^ comirand u/ould try to 
load the program named "PAYKUL 1 /UbC " off of any jrive starting 
from the ^eroth. 
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CHAlfv "PAYRUH" 

fo make the CHAIN command try to load the program namea 
"PAYHfUL/UbC" from drive oner one would execute the statements 

CHAIN "PAYROL 1" 

since the 1 would appear after the eighth character in this case, 

a./ TRAP 

TRAP is a unique instruction becauser rather than taking 
action at the time it is executed^ it specifies the location to 
which a transfer of control (via the CAUL mechanism) should occur 
if a specified event occurs during later execution. For example: 

TRAP EMSG IF PARITY 

specifies that control should be transferred to EMSG i f a parity 
failure is encountered during a READ or i'^RITE instruction. The 
control transfer is performed in a manner similar to the CALL 
instruction. Therefore^ in the above examplef if the parity error 
occurred during a disk READ instruction* the effect would be to 
insert a CALL EM3G instruction between the READ and the 
instruction immediately following it. 

If an event occurs and the trap corresponding to that event 
has not been set# the message! 

* ERROR * LLLLL X * or 

* ERRUR * LLLLL X * Q 

appears on the console display. The first form appears for all 
traps except I/O traps. In the event of an I/O trap* a 
qualification letter is given where a "Q" is shown in the example 
(explained below under the "10" trap). The LLLLL is the current 
value of the program counter and the X is an error letter. In 
most casesr LLLLL points to the instruction following the one that 
caused the problem. However^ in certain I/O errors* LLLLL will 
point after the list item where the problem occurred. The 
following error letters can appear: 

P • pari t y fail ure 

R * r e c o r d n u m b e r out of range 

F - record format error 

C - chain failure 

i - 1/U error 
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8 * illegal operation coae 

U -^ call stack underflow or overflow 

A • interrupti on sal ready prevented 

Note that the last three items shown above cannot be trapped* The 
a error will only show up if somehow an invalid object file is 
executed or if the system is failing. The U error will happen if 
the programmer forgets to perform a call or in some other fashion 
manages to execute a RETUNfSi instruction without a corresponding 
CAUL having been previously executed^ or calls are nested more 
than eight levels deep. The A error will happen if a PI 
instruction is executed whi 1 e i nterrupt s are currently prevented. 

The events that may be trapped are shown below. The 
capitalized name is the one used in the TRAP statement. 
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one of the following qualification letters 
indicates the nature of the I/Q problem; 

A - an access sequentially by key was attempted 

before any indexed sequential access was made 

using the logical file, 
b - the READ mechanism ran off the end of a sector 

without encounterinq a physical end of record 

character (005), 
C - an operation on a closed logical file was 

attempted, 
L) • a rtRlTE or iNStHT indexed sequential operation 

was attempted where the specified key already 

existed in the index, 
E - an EOF mark without at least four zeroes was 

encountered. 
1 * the index file specified in an OPEN statement 

does not exist on the specified drive(s), 
J * the index file found by the OPEN statement does 

not reside in the correct physical location on 

the disk (index files may never be moved# they 

must always be re-created), 
K - a null key was supplied in an operation where 

the key may not be null. 
M - the data file specifiea in the OPEM statement 

does not exist on the specified drive(s)t 
H • the data file name specified in the OPEN or 

PREPARE statement was null, 
• the index file name specified in the OPEN 

statement was nul 1 # 
P • the file specified in the PREPARE statement had 

some type of DOS protection (either writer 

delete^ or both), 
T • the tab value in the RbAD or WRITAB statement 

was off the end of the sector, 
U • an EOF mark was encountered while a record was 

being deleted in the indexed sequential file, 

V * one of the indexed sequential access overlays 

could not be loaded by the DOS loader* 
v^ - an index file pointer sector could not be read. 
X - an index file header sector could not be read, 

Y - the H,l.b, of the data file pointed to by the 

inaex file could not be read, (Vi^XY errors can 
be causea by parity errors^ the drive being 
switched off line# or the disk cartridge being 
swapped with another while an operation is 
taking pi rtce, ) 
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Note that the trap locations are cleared whenever a CHAlfM occurs^ 
1herefore# each program mgst initialize all of the traps it wishes 
to use, Also# whenever a certain event is trc^ppea# the trap 
location for that event is cleared, which implies that? if the 
event is to pe trapped again, its location must be reset by the 
t rap rout i ne* 

^•a THAPCLR 

This instruction will clear the specified trap, h'or examples 
TRAPCLR PARITY 
NiH clear the parity trap previously set. 
a, 9 RUILOUT 

The RQLLUUT feature allows the execution of the DATABUS 1100 
system to be temporarily suspended while certain functions are 
performed under DfJS,C, v^hen a RGLLUUT occurs, the program 
RULLOUT/SYS will be run which writes system status and memory in a 
file called RQLLFILE/SYS. A beep i s sounded at the console to 
alert the operator Nhen a ROLIUUI is initiated. Clicks are 
sounded as RULl,FiLE/3YS is created ana another beep occurs when 
the file creation is completed. The DOS is then brought up at the 
console by the loading of SYSTtHO/SrS, The ROLLQUT/SYS program 
then supplies the' characters in the st r i ng speci f i ed by the 
Databus ROLLOUT instruction as i f they were keyed in from the 
console (this will usually call the CHAIN program), v*«hen the DOS 
functions are completed, the DOS file liBBACK/CMD may be executed 
to restore the DATAfciUS 1100 system to its previous status (this is 
usually the last program specified in the CHAIN file), D68ACK/CND 
clears the screen and then loads the ROLLI- f Lt VSYvS object file^ 
This returns the DATABUS 1100 program to the point of execution 
When the ROLLOUT occurred, ROLLOUI/SrS is provided with the 
DATABUS 1100 System, 

ROLLOUT is initiated by a DATABUS 1100 program with the 
following instruction, 

ROLLOUT (string variaole) or 
ROLLOUT (string 1 i teral ) 

The strinc; variable or literal specifies what function is 
initially to be executed under DOS and should oe a command line 
acceptable to the DOS command hanaler. The string used is that in 
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the variable from under the formpolnter up to before a character 
that has a value less than 040 CoctaUi is a vertical bar (0174 
octal)# or has a value of octal 0200 or above. In the normal 
case# this means the string used will be that from under the 
formpointer up through the physical length of the string. If it 
is desired for less than through the physical end of the string to 
be used# one should store a vertical bar in the position after the? 
last character to be used in the OUS command line string, A CFAll 
trap will occur if the string variable is null. For example^ the 
string's contents could be 

CHAIN DBCPILE 

if^hen DUS is brought up by the RQLLQUr# the first thing to occur 
would be a chain to DBCFlLt. The commands found in DBCFILE would 
then be executed (see the DOS Program User's Guide for additional 
information concerning the DOS CHAIN command), DBCFILt could 
consist of these commands! 

SUNT AFILtfBFRk 
SORT CflU,OflU 
OBBACK 

By using the CHAIN command* several DUS functions can be performed 
and the system automatically restored with the DBBACK command. If 
DBBACK is not included in the chain file# if the CHAIN aborted for 
some reason* if DOS was booted during the CHAIN^ or if the string 
specified in the ROLLOUT consisted of a DOS function other than 
CHAINf the DATABUS UOO system will have to be restored by the 
operator keying in DBBACK at the console. 

The ROLLOUT feature is particularly useful when a file needs 
to be sorted with the DOS SORT command or an indexed file needs to 
be re-indexed using the DOS INDEX command. Note that the clock is 
not updated while the DAlABUS UOO system is not executing. 

There are a number of precautions which must be observed 
during the use of ROLLOUT, The functions performed while under 
the DOS must not affect any of the operations that were taking 
place under the DATABUS UOO system. For example* the MASTER 
program must not be changed and files that are open and in use 
must not be modified or deleted. The reason behind this is that 
when the DATABUS UOO operation is restored* certain items in 
memory reflecting the state of the DOS file structure will also be 
restored. If these items are no longer accurate in their 
reflection due to the fact that the file structure has been 
changed* terrible things can happen to the DATABUS UOO system. 
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Operations to be watched in particular include the changing of the 
object code of any program that is running^ the changing of any 
files that are open# and the re-arrangement of any disks with 
files in use within a mylti^drive system, 

<U10 PI 

This instruction (Prevent Interruptions) enables the 
programmer to prevent his program from being interrupted for up to 
dO Qatabus instruction executions. This instruction has no effect 
upon the foreground one millisecond interrupt which performs the 
printer I/O, 

Normal ly# background execution can be interrupted through 
execution of the Interrupt procedure at the console. By executing 
the PI instruction* the programmer can postpone this interruption 
for a specified number of instructions (up to a maximum of 20), 

The number of instructions specified in the PI i nst ruct i on 1 s 
always a fixed decimal number (it may not be a numeric variable). 
For example; 

Pi a 

READ F,KEYIP!M#QTYUNH,LUD 

SUB QTY FROM QTYUi^H 

GOTO NUTISiUfF IF LfcSS 

UPDATE F;PN,QTY0MH,LDD 

Interruptions will be prevented from the PI instruction through 
the UPDATE instruction, ivote that the number syppliea to the PI 
instruction denotes the number of i nst ruct i ons after the PI 
instruction. 

If a KEYIN instruction is executed while interruptions are 
prevented, the effect of the PI instruction is canceled. If a PI 
instruction is executed while interruptions are currently 
prevented* execution of the program is aborted with an error 'A' 
message. This prevents a program from being able to prevent 
interruptions for more than 20 instruction executions. 

Note that when cte vising systems with complex datafile 
structures it is necessary to protect the file structuring against 
irreparable destruction py untimely interruption. The PI 
instruction can be used to prevent the operator from causing such 
a disturpance. However* it should not be used as a panacea for 
the interruption problem since interruptions can still be caused 
tjy power failures or the system operator restarting the processor. 
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The PI can be very useful In preventing the operator from causing 
a situation which could require extensive recovery effort but the 
precautions which allow recovery in the event of an interruption 
at any point in the program must still be built in to allow 
recovery in the other less likely Put still possible interruption 
cases. 

Although when operating under DATABUS U00# there is only one 
user program executing at a timer and no consideration need be 
qiven to another user updating a file as it is being processed^ 
the Pi instruction provides the ability to lock out alternate 
accesses, providing for future upgrades to multi-user DATASHAHE 
systems, 

a,U TAHPAGE 

This instruction forces sections of the program into certain 
pages of object code, Execution speed can be enhanced in this way 
because of the way the virtual storage mechanism for the object 
code works, Ihe instruction consists only of the verb TAbPAGE. and 
has no operands (a label may be placed on a TAHPAGt instruction 
line, however). Execution of the TABPA&t Instruction causes 
control to be transferred to the first byte of the next page. 

Note that liberally scattering TAbPAGt instructions 
throughout a user program will in general not result in an 
increase in execution speed. Instead, the usual effect is to 
increase the rate of thrashing of the program, lABPAbL should 
only be used to force tight loops to reside entirely within one or 
two pages. 
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Each string instructioHf except LlJAO and STORt? requires 
either one or two character string variablo names following the 
instruction, (Note that the MtiVt instruction is capable of moving 
strings .to numbers* numbers to strings* and numbers to numbers* as 
well as moving strings to strings. See the following section and 
Section 6,5 for the entire description of the NUvE instruction. 
Also note that APPEND can move numbers into strings as well as 
strings into strings,) in the following sections* the first 
variable will be referred to as the source string and the second 
variable will be referred to as the destination string. In some 
cases* the source may be a literal, i^^hen it is* the formpointer 
always points to the first physical character in the string and 
the logical length always points to the last physical character in 
the string, 

5,1 MOVE 

MOVE transfers the contents of the source string into the 
destination string. Transfer from the source string starts with 
the character under the formpointer ana continues through the 
logical length of the source string. Transfer into the 
destination string starts at the first physical character and yhen 
transfer is complete^ the formpointer is set to one and the 
logical length points to the last character moved. The EPS flag 
is set if the ETX In the destination string would have been 
overstored and transfer stops with the character that would have 
overstored the ETX, If the source string is null* the length and 
form pointer of t he dest i nat i on string are set to zero* and the 
EUS condi t i on i s NOT set , 

The f^OVE instruction can also move character strings to 
numeric strings and vice versa, (The movement of numeric strings 
to numeric strings is covered in section 6,5,) A character string 
will be moved to a numeric string only if the character string 
from the formpointer through the logical length is of valid 
numeric format (only digitSf spaces* a leading minus sign* and one 
decimal point allowed). Otherwise* the nu'^'eric string is not 
cnanged. Note that only the part of the character string starting 
with the formpointer is considered in the validity check and 
transferred if the string is of yalia numeric format. The number 
in the character string will be reformatted to conform to the 
format of the numeric string. Hounding occurs if the number in 
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the character string is too large to fit into the format of the 
numeric string (see Section 6 tor rounding rules foHowed), The 
TYPfc instruction is available to allow checking the character 
string for valid numeric format before using the MUVE instruction, 

When a numeric string is moved to a character string^ all 
characters of the numeric item (unless the £TX in the destination 
string would be overstored) are transferred starting with the 
physically first character in the destination string, when the 
operation is completeor the logical length is set to point to the 
last character transferred. The tOS condition is left true if the 
LTX of the destination string would have been overstored. In this 
casef transfer stops with the character before the one that would 
have overstored the E'TX and the logical length is left pointing to 
the physical end of the string (^which contains the last character 
transferred). 

In the following examples* the logical lengthy formpointer* 
and content of each variable is shown before the statement is 
executed* the statement is shown ana the contents of the variable 
that is changed by the execution of tnat statement is shown. The 
* denotes a space in the contents of a variable, 

VAR LL ¥P Contents 



STRINGl 4 a ABCDXLM 



LTX 



STKIiMG^ b i DUGCAT tTX 

MOVt STRINGI TU 3THING^ 
STRINGS 3 1 bCDCAT tTX 

STRlNGa 6 3 DOGCAT fcTX 

MUVE "HELLO" TO STHliVCa 
STRING.? 5 I HtLLUT tTX 
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STRINGI 9 3 ABlOO.Sa? fclX 
NUMBER Q'dUQ ''39»00 ETX 

MUVE STHINGl TO NUMBER 
NUHBER 0^00 1 00. ii ETX 

NUMBER 0200 100. ii ETX 

STRINGl 9 3 ABIOO.3^/ ETX 

NDVE NUMBER TQ STRINGl 

STRINGl 6 1 100,3332? ETX 

Note that In the statement* 

^.OVE "ABC" TU NUMBER 

the compiler will give an E error flag since it knows that this 
cannot be a valid operation (the inove will not occur because the 
literal is not of valid numeric format )# In the statement; 

MOVE "2.3" TO STRINQl 

the compiler will generate a string to string move rather than a 
numeric to string move, 

5,2 APPEND 

APPEND appends the source string or number to the destination 
string, A numeric item is treated exactly as if it were a string 
with a formpointer pointing to the first physical character and a 
logical length pointing to the last physical character in the 
number. The characters appendea are those from under the 
formpointer through under the 1 ogi ca 1 I engt h pointer of the source 
5trin<3, The characters are appended to t he ciest 1 nat i on string 
starting after the formpointed character in the destincUion 
string, fhe source string pointers remai n unchangeo/ t)ut the 
destination string pointers both point to the last character 
transferred, Ihe EOS condition ^iM be set if the new string will 
not fit physically into the destination string* hyt all characters 
that will fit will be trarisferred. 
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The following example shows two strings before the operation* 
the operationr and the result in the second string after the 
operation; 

STKINGI 8 6 JOHM'^DOE tTX 

STNlNbf? U IJ MARVJOMES "*"- ETX 

APPtND SINliSiGl lU S1HING2 

The following example shows a destination string before the 
operation* an operation appending a literal to the destination 
string* and the destination string after the operation: 

STRIiMG^ 9 8 MARY'^JONtS'*'*"'*''"***''-"'* EfX 

APPEND SXX^Yf," ?G STRING.? 

STR1NG2 ib lb MARY* JUN.XX , V Y • LTX 

The following example shows the use of APPEND to move a 
numeric item into a string item; 

MU'IBER 0^00 100, 3i tTX 

STRIi^G 9 a ABCOEFGHI ETX 

APPEND NUMBER TU STRING 

STRING a 8 AB100,351 ETX 

b,l MATCH 

MATCH compares two character strings starting at the 
formpointer of each and stopping when the end of either operand's 
string is reached. If either formoointer is zero before the 
operation* the MAKH operation will result in only clearinci the 
LESS and EUUAL flags ano setting the fcUS flag. Otherwise, the 
"length" of each string is calculated to be LENGTH-hORMPOlNTERt 1 
and the LESS flag is set if the destination string length is less 
than tnat of the source string. The two strings are t ncn compared 
on a character-f or-character t^asis for the number of characters 
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equal to the lesser of the two lengths. If all the characters 
match, the fcQUAL flag is set. Otherwise, the LESS f 1 aq's meani nq 
IS changed to indicate whether the ASCII value of the (Jestination 
character is less than the ASCII value of tne source character 
(LtSS flag set) or vice versa (LISS flag reset) for the first pair 
of characters that do not match. Some examples and their results 
follow: 



SOURCE 



DtSIINATION 



Rt:syLr 



ABCDE 


ABCD 


ABC 


Z 


in 


AAA 


ABC 


ABC 


ABCD 


ABCOfc 


Exampl es: 





tQUAL, LtSS 
fvUT EQUAL, NUT LESS 
kivj EQUAL, LESS 
EQUAL, NUT LESS 
EQUAL, NOT LESS 



MATCH A TU B 
MATCH STRl,STRa 



5,4 CMUVE 



CHOVE moves a character from the source operand to under the 
formpointer in the destination string. The character from the 
source operand may be a quoted alphanumeric (note that the forcing 
character rule does not apply here), the character f rorr under the 
formpointer of a string variable, or an octal control character 
(000 to 037), If either operand has a formpointer of zero, an EDS 
condition and no transfer occurs. Specifically, a variable 
declared with DIN instead of INIT has an initial value of NULL. 



Exampl es: 



CMQVE XDATA TU YDATA 

CMOVE "A" TO CAT 

CMOVE X,Y 

CMOVE 015,Y 



5.b CMAICH 



CHAICm compares two characters, one taken from each of the 
source and destination operands. The characters may be quoted 
alphanumeric (note that the forcing character rule does not apply 
here), from under the formpointer of a string variable, or octal 
control characters (000 to Oi/), An EOS condition occurs if 
either formpointer is zero, and no other conditions are set. 
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Otherwise^ the EQUAL and LESS conditions are set appropriately. 
The LESS condition is set if the destination string character is 
less than the source string character. 



Exampl es; 



CMATCH XDAfA TO YDATA 
CMATCH "A%DOG 
CMATCM CAT TU "B" 
CMATCH OlS,DQG 



h,b HUMP 



13UMP increments or decrements the formpointer of the first 
operand if the result will be within the string (between I and the 
logical length), Zf no parameter is supplied^ BUMP increments the 
formpointer by one. However^ a positive or negative literal value 
may be supplied to cause the formpointer to be moved in either 
direction by any amount. Note that a numeric variable is not a 
valid arguement to BUMP, although such a statement will not be 
flagged by the compiler. This is because the compiler treats any 
text appearing after a valid arguement as comments* providing it 
is not recognisable as another arguement. The EOS flag will be 
set and no change in the formpointer occurs if it would be less 
than one or greater than tht; logical length after the movement had 
occurred, 

Exampl es; 

BUMP CAT 
BUMP CAT BY 2 
BUMP CATf-1 

b,7 RESET 

RESET changes the value of the formpointer of the source 
string to the value indicated by the second operand. If no second 
operand is given* the formpointer will be reset to one. The 
second operand may be a quoted character* in which case the ASCII 
value minus 31 (space gives one* i two* " three* etc) will be used 
for the value of the formpointer of the source string. The second 
operand may also be a character string* in which case the ASCII 
value minus 31 of the character under the formpointer of that 
string will be used for the value of the formpointer of the source 
string. The secono operand may also be a numeric string* in which 
case the value of the number wi 1 1 be used for the formpointer of 
the source string. 
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RtSEl also has the capability of extending the logical lenc|th 
of th# first operand^ If the formpointer value specified is past 
the logical length of the first operandf the logical length wili 
be extended unt i 1 it will accommodate the formpointer value. If 
this would cause the logical length to be past the physical end of 
the string^ the logical length and formpointer will Doth be left 
pointing to the last physical character in the string. This 
feature is useful in extracting and inserting information within a 
large string. The tOS condi t i on wi 1 1 be set if a change in the 
logical length of the first operand occurs. 

Examples; 

RESET XDATA TO b 

RESET y 

RESET / TO NUHBEH 

RESET Z TO STRING 

Note that the RESET instruction is very useful in code 
conversions and hashing of character string values as well as 
large string manipulation, 

S.B f NDSfc T 

ENDSET causes the operand's formpointer to point wnere its 
logical length points, 

bx ample! 
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tNOSET PNAHt 
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LENSET causes the operand's logical length to point where its 
formpointer points, 

txample; 

LtNStr QNAHt 

5.10 CLIAN 

CLEAR causes the operand's logical length and formpointer to 
be zero. None of the data characters are changed, 

Exampl e; 

CLEAN NBUFF 

5.11 EXTEND 

EXTEND increments the f opmpointer# stores a space in the 
position under the new formpointep# and sets the logical length to 
point where the new formpointer points if the new logical length 
would not point to the ETX at the end of the character string. 
Otherwise* the EOS flag is set and no other action is taken, 

Exampl e! 

EXTEND BUFF 

5.12 LOAD 

LOAD performs a MOVE from the character string pointed to by 
the index numeric variable* given as the second operand* to the 
first character string specified, Ihe instruction has no effect 
if the index is negative* zero* or greater than the number of 
items in the list. Note that the index is truncated to no decimal 
places before it is used (e,g, 1,/ = 1), 

Example! 

LOAD AVAR FNUM !^J UF MAMt , T ITLE * HEUI NG 
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5.13 burnt 

STURt performs a MOVE from the first character strinq 
specvfied to a character string in a list specified by an'index 
numeric variable given as the second operand. The instruction has 
no effect If the index is nogafive, zero, or greater than the 
number of items in the list. Both LOAD and STimt: can be used with 
numeric arguementsr see the section under "Aritnmetic Operations." 
Note that the index is truncated to no decimal places before it is 
used (e.g. 1, / 5 n » 

Exampi es: 

3TURE Y INTO IMUM OF 11 EH, t nTRY , AL I*^iK 
STORE "XX" INTO Nm Oh A1,A^,A5 

Ihe LOAD and S] ORE i nstruc t i ons may be continued to the next 
line by the use of a colon: 

Examples! 

LOAD SYMBOL FRQH H OF V AH,COi^Sl ,DFC : 

COUNT, FLAG, LIST 
STORE NAME IklO Nm Of A ,B, C,0, E , F , G j 
H, I, J,K,L,M 

S, 14 CLOCK 

CLOCK enables the programmer to access the DATABUS liOO 
Clock. This interrupt is accurate to approximately O.OOS percent 
or four seconds per day. There are t h ree var i abl es that the CLOCK 
instruction can access. These are given the names TIME, qay, and 
YEAR, All are character strings with Tl 



names T IME, uh t , 
'E being in the format; 



l^!34!b6 



ind ranqing from 00l00:00 to ^3:S9:b9, DAY being in the format! 



and ranging from 001 to ibb (except to 
VEAK being in the format; 



5 6 b on leap years), an 6 



\^ 
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.ind ranging from 00 to ^9, being the last two digits of the yeart 
Note that when the TIME goes from a35S9:59 to 00lp0:00f the day is 
incremented. The new day value is not checked to^be a valid 
Julian date^ however, implying that the system must be manually 
reset at midnight at the end of the year. The CLOCK instruction 
performs a character string to character string move with the 
special variable in the source and the character string to receive 
the information in the destination operand specification, i\ote 
that the user's program may have variables called flN^E, DAYf and 
thAN. 

For example! 

CLOCK TIME TO TlNt 
CLOCK DAY TO OAY 
CLOCK YfAR TO YfcAH 

would move the information in the system variables into user 
defined variables called TlMfc, DAY, and Yt AR also. 

Note that the clock value is not allowed to be updated by the 
foreground interrupt during the actual transfer of characters from 
the system data into the user's data item. However, an interrupt 
could occur between the time one clock item was moved and the 
next, thereby ne'ceSsi tat i ng a precaution if both the time and the 
day figure are obtained. For example, if the time was 23sS9;S9 
and the TIME was moved into a variable and then the foreground 
interrupted and caused the clock to be incremented to the next 
second, the TIMt would then read 00;00:00 and the PAY would have 
been incremented. If the DAY figure were then obtained, it would 
be wrong. Therefore, when obtaining both the TIME and PAY, one 
must first get the DAY, then get the TIME, and then go back and 
make sure the DAY had not changed. For example! 

CLOCK DAY TO DAY 



CLOCK 


TIME TO TIME 


CLOCK 


DAY TO DAYH 


COMPARE 


DAY 10 DAY2 


GOTO 


TIMEOK IF EQUAL 


CLOCK 


DAY TO DAY 



UMEOK 
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S.lb TYPE 

ryP£ sets the IQUAL condition if the string contained from 
the fopmpointep through the logical length of the specified string 
variable is of valid numeric format (only leading minuSf one 
decimal points and aiciits or leading spaces), ^NJote specifically 
that a field that is all spaces ^ only a decimal point or fvULL is 
not a valid numeri c f i el d, 

b,lo SfcARCH 



StARCH com 
of cont iguous v 
(the index) of 
formpo inter of 
var i abl e, tach 
i s exhausted (t 
the key matches 
wi I 1 occur. If 
occurs. The in 
containing the 
cofftpared to eac 
exhausted or a 



pares one string of characters (a key) to a series 
ariables (a list) and returns the positional numper 
the matching item. The search starts at the 
the key variable ana the formpointer of first list 

compare through the list stoos when the key length 
he items do not have to be of equal length). If 
the item^even though the item is longer? a match 
the list item is shorter than the key# no match 
struction must include a numeric variable 
number of items in the list. The key will be 
h item in the list until the list length is 
match occurs. 



If a match is founds the number of the matching variable 
(that is? its position in the list) is stored in the numeric 
variable specified as the index and the tuUAl flag is set. 



If no match is found? 
the OVER flag is set. 



the index variable is set to ^ero and 



For ex amp 1 e; . 

StARCH KEY IH ilST TU UISTBN iv|TH iNDtX 
StARCH ACTNO Ulv VALIDACT TO TfcN USING CLASSf^Q 

The key and list may be of either numeric or string type* 
However Doth the key and list items must be of the same type as it 
IS not possible for a match to occur when one item is a string 
variable, and the other is a nuT^eric item. Regardless of the 
type? only compare without alignment is preformen. The list 
arguement is the name of an item in the user's data areet, and 
defines the beginning of the search operation. As the search 
progresses? one data item after another is cpmparea against the 
kev variable (using criteria similar? but not identical to -^ATCH) 
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until the specified nymber of Items have been compared^ op a match 
has been found. It is the user's responsibi H t y to limit the 
search operation to a valid number of items. If the number of 
items specified in the search exceeds the number of items in the 
user's data area* the search continues blindly until the count is 
exhausted, 

b.l/ REPL ACt 

The KEPLACt (or KEP) instruction allows any ASCII character 
in a string variable to be replaced by any other ASCII character. 
The first variable in the instruction contains one or more pairs 
of two characters* each pair consisting of the character to be 
replaced and the replacing character. The second variable is the 
string to be modified • 



ABVAR 



INIT 

REPLACE 

REP 



"PQRS" 

A8VAR IN SVAR 

"AB" IN SVAR 



In the latter example string SVAR wil 
replaced by a "B" character. 



1 have any "A" character 



b-lr? 
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AH of the arithmetic Instructions have certain 
Characteristics in common, kxcept for I DAD and STQHt# ijact) 
arithmetic i nst ruct i on i s always followed by two numeric string 
variable names. The contents of the first variatHe is never 
modified andr except in the CUMPAKf:. instruction^ the contents of 
the second variable is always the result of the operation, for 
example* in; 

ADD XAM1 TU VAhT 

the content of XAM7 is not changed* but rAM? contains the sum of 
XAMT and YAHT after the instruction is executed. 

Following each arithmetic instruction* the condition flags 
UVtRf LtSS* and ZERO tor tQUAt) are set to indicate the results of 
the operation, UVER indicates that the result of an operation is 
too large to fit in the space allocated for the variable (a result 
is still given with truncation at the left and rounding at the 
right* however), LESS or ZERU (t-QUAL) indicates respectively that 
the content of the second variable is negative or zero following 
the execution of the instruction (or wouhj have been in the case 
of CO^^PARt), 

Whenever overflow occurs* the higher valued digits that do 
not fit the variable are lost. For example* if a variable is 
det i ned: 



NBR^2 



FURM i,i 



and a result of 423a, 67 is generated for that variable* NBR4? will 
contai n onl y 3^,6 7, 

ivhenever an operation produces lower order digits that will 
not fit in the destination variable* the result is rounded. 
Rounding on five is the next greater variable, A variable with 

the irUH'A S,l should contain: 



4 b, 2 


for 


4b,21 S 


tm,b 


for 


bl2.4b3 


'S,7 


for 


3,606 


3,9 


for 


3,6b0 


632.0 


for 


46 52 
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with the OVEN condition occurring for only the last resultt 

Note that if an QVtR occurs during an ADO, SUBi or COMPARE of 
two strings of different physical lengths^ the result and the UFSS 
condition flaq may not be correctt 

6,1 ADD 

ADD causes the content of variable one to be added to the 
content of variable two! 

Examples I 

ADD X TO Y 
ADD DOG, CAT 
ADD "1% LEN 

6. a SUB or SUBTRACT 

The SUB instruction (the compiler will also accept a mnemonic 
of SUBTRACT) causes the content of variable one to be subtracted 
from the content of variable two. 



txamplesj 

SUB RX550 FROM TOTAL 
SUB "32, S« FROM RATt 
SUBTRACT Z, TOTAL 

6.3 MULT or MULTIPLY 

The MULT instruction (the compiler will also accept a 
mnemonic of MULTIPLY) causes the content of variable two to be 
multiplied by the content of variable one. The restrictions 
mentioned in the introduction about the length of multiplication 
operands are that the sum of the number of characters in the two 
operands must be less than l>dm 



txampi es; 



MULT H BY A 

MULT ".UOS" dY UjTAL 

MULTIPLY i^,l 
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6,4 DIM or PiViDt 

The DIV instruction (the cofnpiler wHl also accept a mnefnonic 
of DlVIDfc) causes the content of of the second variable to be 
divided by the content of the first variable. The restriction 
upon division operands is that the number of characters in the 
dividend plus the number of characters in tne divisor pigs two 
times the number of characters after the decimal point in the 
divisor must be less than 32, Division by zero results in the 
OVtR condition being set and the destination variable not being 
changed. 

If the quotient cannot be represented fully in the 
destination variable formats the quotient will be rounded to the 
number of places in the destination variable if the divisor has at 
leastone digit place after the decimal point. If there are no 
digit places after the decimal point in the divisor* the quotient 
will be truncated (rounded d0(«n) to the number of places in the 
destination variable, 

fcxamples! 

DIV Sf ACT INTU XRSLT 
DIV "3.0" INTO QUANinY 
DiVIDt. X5#H0URS 

6,b NUVt 

MUVt causes the content of variaple one to replace the 
content of variable two, 

fcxamp less 

HOVE FIRST TU StXONu 
MOVE "0" 10 CUUNThR 
MOvfc. A,b 

o,6 ClJHPARt; 

LiJ'iPAHfc does not chanqe the content of either variable but 
sets t^te condition flags exactly as if a 5Uh instruction has 
occurrei, 

t xamp 1 es : 
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COMPAHt: XFR-I 10 ypRM 
CUMPARt "lOU" TQ LINENH 
COMPARt TIMfcl,TiME«> 



6.7 LOAD 



The LOAD instruction selects the numeric string variable out 
of a list based on a nuineric inaex variable. It then performs a 
MOVE operation from the contents of the selected variable into the 
first operand. If the index is truncated to no decimal places 
Defore it is usdd (e.g, 0,lsO), 

t^xampl e! 

LOAD CAT PROM <\i OF CA f ,MULTf SPACE 



6,8 STORt 

The SfORt instruction selects a numeric string variable from 
a list based on the value of a numeric index variable. It then 
performs a MOVE operation form the contents of the first operand 
into the selected variable. If the index is negative^ zerot or 
greater than the number of items in the list* the instruction has 
no effect. Note that the index is truncated to no decimal places 
before it is used (e.g. 0,150), 

Examples 

STORE X INTO MUM OF VALvSUBrTOl 

The LOAD and STORE instruction statements may be continued to 
the next line by the use of a colon. 



Exampl es; 



LABEL LOAD NUMBER FROM N OF UX ,N^,ki,Hii ti^b; 

N6fN/rN6fN9 
ENTRY SrORE "2,3" i^TU X OF N1,N2,N3 
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6,9 CHECK 11 

The CHtXKll (or CK113 instruction performs a check digit 
calculation (modulo U) on two string variables, Both string 
variables must consist of digits only. The first variable is the 
base number and the check digit to be Vtilidated: 

112 5 4 17 1 

I *BASE 1 *-'•- CHECK DIGIT 

The second variable is the weighting factor: 

i 5 a 3 a I 

Note that the weighting factor and the base portion of tne number 
are of the same length. The weighting factor is assumed to have 
the length of the base, if it is shorter^ an LOU condition is set 
and the i^nstruction is not completed. If the weighting factor is 
longer^ only the first (n) digits are used* where (n) is the 
length of the base, 

THe cal cul at i on is performed starting at the forrr! pointer of 
each variable using the length - I of the f i rst vari abl e, lAihen 
the check digit value has been computed? it is compared to the 
last digit of the base, if they match, the tQUAL flag is set? if 
the resultant check digit does not match, the OVtR flag is set and 
the EQUAL flag is cleared. 

For exampl ej 

CHECKU BASfcCK BY "7(>S432A" 

CKU NMBR BY i^EIGHT 

The algorithm used to generate the modulo 11 check digit value is: 

1) Each digit in the base is multiplieo oy the corresponding 
digit in the weighting factor, 

d) The individual products are adciea. 

i) The sum of the products is divided by olevon, 

^) The remainder of the division is subtracted frof^^ eleven 
givinc] tne check digit. 
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S) A check digit with a value of 10 cannot be used and causes 
the UVfcK flag to be set, 

6.10 CHtCKlO 

The CHECKIO (or CKIO) conforms to the same restrictions and 
is performed in the same manner as the CHfcCKli Instruction with 
the exception of the algorithm used to compute the check digit, 

I" or example! 

CHtcKio AdiNiu BY ''^l^\^" 

CKIO A BY B 
The algorithm for modulo 10 check digit computation is; 

1) Each digit in the base number is muTtiplied by the 
corresponding digit in the weighting factor, 

2) The individual digits in these products are added. 

i) The sum of the digits is divided by 10, 

^) The remainder of the division is subtracted from 10 with the 
result being the check digit. 
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between the 

di skr al 1 ow all st 

This 1 i St may be 
a col on. 

The I/O list may contain some special control information 
oesides the names of the variables to be dealt with. It may also 
include octal control characters (000 through 037), Care must be 
taken in tne use of these special control characters as their use 
can cause unpredictable results if t he 1 Vi} dev i ce (such as the 
Servo Printer) does not have provision for them, DATABUS 1 100 has 
no formatting information in its input and output operations other 
than the list controls and that implied by tne format of the 
variaDles, Tne number of characters transferred is equal to the 
number of characters physically allocated for the string (except 
in some special cases) allowing the programmer to set up his 
formatting by the way he dimensions his data variables. 



7,1 KEVIN 

KEVIN causes data to be entered into either character or 
numeric strings trofr' the keyboard, A sincjle KtVI''^ instruction can 
contain many variable names and list control items, ivhen 
characters are being accepted from the keyboards the flashing 
cursoris on« At all other times the cursoris oft, 

i^hen a numeric variable is encountered in a KEVIN statement* 
only an item of a format acceptable to the variable (not too many 
digits to the left or right of the decimal point and no more than 
one sign or decimal point) is accepted. If a character is struck 
that is not acceptable to the format of the numeric variable? ^"^^ 
character is ignored and a beep is returned to the console. Note 
that if fewer than the allowable number of digits to the left or 
right of the decimal point »re entered? the number entered will be 
reformatted to match the format of the variat>le being entered, 
vMhen the ENTER key is struck? the next item in the instruction 
list is processed, 

^'ihen a character string variable is encountered? the system 
accepts any set of ASCII characters up to the limit of the 
physical length of the string. The formpointer of the string 
V aria Die is set to one ano characters c^ restored consecutively 
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startinq, at the physical beginning of the strincj, ^«hen the ENTER 
key t5 struck, the logical lengtn Is set to the last character 
entered and the next Uem in the keyin list is processed. If the 
tNTiH key is struck without any other characters havinq been 
entered (a null string is entered), both the logical length and 
form pointer of the string are set to zero. The program can check 
for a variable with a null entry by checking for an EOS condition 
after doing, a C.'^ATCH instruction on the variable in question. 
During a KtYINf any unrecognisable characters (not in the printing 
ASCII set) sent in from the console will he ignored and a beep 
returned, 

/.Ul Displaying with KEYIN 

Other than variable names, the KEVIN instruction may contain 
quoted items, list controls, and octal control characters (000 to 
Oi/), Quoted items are simply displayed as they are shown in the 
statement, 

/,1,2 List Controls 

The list controls begin with an asterisk and allow such 
functions as cursor positioning and screen erasure. The *P<n>;<m> 
control positions the cursor to horiarontal position <n> and 
vertical position <m>, iMote that these numbers may be literals or 
numeric variables and both positions must always be given in a *P 
command. The horizontal position is restricted by the interpreter 
to be from I to 80 and the vertical position is restricted to be 
from 1 to I2t Numbers outside this range have the effective value 
of 80 horizontal and 12 vertical. 

The *ES control positions the cursor to l!l and erases the 
entire screen, the *EF control erases the screen from the current 
cursor position, the *£L control erases the rest of the line from 
the current cursor position, the *C control causes the cursor to 
be set to the beginning of the current line, the *L control causes 
the cursor to be set to the following line in the current 
horizontal position, the *N control causes the cursor to be set to 
the first column of the next line, ana tne *R control causes the 
screen to rol 1 up. 

Normally, the cursor is positioned to the start of the next 
line at the termination of a KtYiN statement, however, placement 
of a semicolon after the last item in the list will cause this 
positioning to oe suppressed, allowinc? the line to be continued 
i*(ith the next KEYlN or DISPLAY statement, Tnis feature is also 
true of the PHI NT rommana. 



/^i 
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ACTNRf" ADDRfcSS: " ,STHfe t T r *P1 : i: 

CITY, *px:a, "ZIP! %ZIP; 



/•I, 5 KEYIN Continuous 

A mode caHed keyin continuous is available (turned on with 
list control *+ and turned off with list control *- or the end of 
the statement) which causes the system to react as if an t^iT£R key 
^Bci been struck when tne operator enters the last character that 
wi)] fit into a variable. This mode allows the system to react in 
much the same way as a keypunch machine with a control card, 

/.ua BACKSPACt and CANCtL 

tfNhile keying a given variable^ the operator can strii<e the 
r^ACKSPACt key and cause the last character entered to be deleted, 
I he operator may also strike the CANCLl key and cause all of the 
Characters entered for that variable to be deleted, 

A circular input buffer allows the operator to send 
characters from the keyboard before they are requested by the 
system, Note that there is no feedback at this level as the 
characters Bre fed back only as they are taken from the buffer. 
This buffer allows the operator to continuously enter data without 
being affected by minor delays in the response of the system, 

/,.l,b uperator interrupt Procedure 

A special case of KtYiN is the interrupt procedure^ entered 
oy keying CANCEL with both the KEYBUARO and DISPLAY keys depressed 
on the system console. Normally, when the cursor is not flashing, 
all characters will be ignored (not accepteo from the circular 
inout Duffer) until input is requested, Ihe exception, however# 
is tne interrupt character, which may beKeyed at any time(it 
will be postponed if a PI instruction is in effect) and will 
result in .in immediate ChaIj\ to the i^'ASTEK prooram. Thus, the 
currently executing proqram will stop, the Drinterr if oeing used# 
will PC ariorted^ and the PIASTER profjram will Deain execution. 
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/. 1,6 New Li ne 

Another special case of KtYiN is the n£n LINE character^ 
which is the DEL or under] i ne character on the system console. If 
this key is struck during a KtYlN statements the current variable 
is terminated as if the ENTtH key were struck and aH subsequent 
viinables in the statement will be set to zero or their 
tormpoi nters ar^d loqical lenuths set to zero depending on whether 
they are numeric or string variables. Control will fall through 
to the next DATABUS 1100 statement, 

7.1.7 KEY IN Timeout and Pause 

The list controlf *T# may be included in the KEYIN statement 
causing a time out if more than two seconds elapse between the 
entry of two characters. The time out has the same results as if 
the NtiN Lli'^JE key had been struck. 

The list co.ntrol# *^t may be included in the KEYIN statement 
causing a one second pause at that point in the list sequence. 
This control is especially useful in programs which wish to simply 
pause for a number of seconds. Any number of seconds of pause may 
be achieved by putting in the required number of *w controls in 
the list. 

7.1.8 Echo Control 

The list controls *EOFF and *EUN may be included in the KEYIN 
statement causing the echo of entered characters to be inhibited 
or enabled respectively. <^hen echo is inhibited/ the KEYIN 
statement causes only the characters specifically mentioned in the 
list to be displayed on the console. Therefore^ the statement! 

KEYIN *£OPf #1NL1mE; 

would allow the variable INLINE to be entered from the keyboard 
with absolutely no characters being displayed at the console. 
Since the cursor display at the console will not be enabled^ there 
will oe no indication in this case that input is oeing requested, 
Ihis feature could be usea where passwords are to be entered and 
it is desired to suppress their display. In this case* the 
St atement : 

KfcYiN *EUhP r*PlSlO,"ErvTEr^ PASSWORDS ": 
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could be used, I'^ote that even though echo is inhibited^ the 
Cursor positioning and literal characters are still displayed on 
the console since they are specifically mentioned, f^otice also 
that the carriage return and line feea will be sent at the end of 
the statement since a semi-colon is not supplied^ The Qii 
Character is a cursor on ana the Ot?M is a cursor off for the 
system console. The cursor controls must t)e specifically 
mentioned since the echo inhibit prevents them from being sent 
automatically. The echo is always enabled at the conclusion of 
the KtyihJ statement, Ihereforer one must always inhibit. the echo 
cit the start of each statement in which no echo is desired, 

/•1,9 KEyIN Format Controls 

Numeric and String variables in the KtYiN may be preceded by 
a format control function v^hich can change the justification 
and/or fill control normally performed during KtYIN, 

The special KtYlfM controls apply only to the variable 
following in the KEYlN statement, 

the *Ju control 1 ef t* j ust i f i es numer i c input ana eercfills at 
right if there is no decimal point entered from the terminal* 



KtYlN 



*JL,NVAR 



The *JH control right- just i fi es String input and blank-»f i 11 s at 
left. 



KtYIN 



*JR^SVAH 



The *ZF control performs zero*fill on String entry. Characters 
that normally would be supplied as blanks are supplied as ASCII 
zeroes, 

KEYlN */F,SVaR 

The combination of *l\r anci *JR is valia, 

KtYii^ *ZF,*JR,SVAft 

The *L)t control can be used to restrict String input to digits 
only (0*9), A non-oigit will not be accepted at the keyboard. 



KtYIN 



*l.)t ^SvAk 
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7.1,10 Text Input 



The keyboard Input can be programmed for text input through 
the use of the *IT and *ii\ controls. The control *1T is used to 
turn*on the text input mode. This converts all alphabetic 
Characters to shift case as on an office typewriter. The keyboard 
remains in the text input mode until the control *IN returns the 
keyboard to normal mooe. 
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DISPLAY *P5;lf"RATE; ",RATt: 

*P5!^f "AMOUl^iT; "*AMNT 
DISPLAY "ABC%0^1,SU 



7,5 dttP 

tjttP causes a beep to bt> sent to the console, 
Ex amp] e; 

tU.tP 
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/.'4 PRINT 

UATABUS 1100 supports either one local printer or one servo 
printer, tjepending on pr i nter avail abi 1 i t y, 

fhe PRINT instruction causes the contents of variables in the 
list to be printed in a fashion similar to the way DISPLAY causes 
the contents of variables to be displayed. The list controls are 
much the same as DISPLAY except that cursor positioning cannot be 
useoi column tabulation vs provided (*<n> causes tabulation to 
column <n> ) and *f causes an advance to the top of the next form, 
Uctal control characters may also be included in the print 
instruction. The PRInT statement may oe continued on more than 
one line oy the use of a colon. 



t xampl es i 



FklNT uAlt ,*^0, " TKAimSACT IU*^ SUMMAR Y % *C , *t I 

AmT,*L 
PRINT "ABC'SO^lrSU 



The control character, *ZF may be used before any numeric 
variable to cause zero fill on the left, moving the sign to the 
left if necessary. The tabbing in the PHINT statement can move 
the carriage in the reverse direction and any sequence of printer 
controls will be executed in precisely the sequence specif ied. 
For example, one could print 10 characters, tao back to column b 
ana overprint that column, do one line feed^ and print five 
cnaracters »fhich would appear in columns b through lU under the 
first line. One could then ao a form feea anci nrint 10 more 
characters which would appear in columns 11 through iO at the top 
of the next page , 

If the servo printer is being useo, the paper out condition 
will be checked whenever a top of form control is given in a PRINT 
statement. If, after the top of form function is p e r f o r m e d , the 
paper out conaition is present, the console will make a uniquely 
characteristic beeping sound (morse code "P") to alert the system 
operator that more paper must be placed in tt^e printer, 1 he 
Deeping sound will stop when the front cover of the printer is 
s-N/ung out but will resume if the cover is replaced to its original 
position with the paper out indicator still on. Ihe recommendeo 
p roc endure is to open the front cover* remove the last form still 
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in the printetf place new paper in the printer with the top of the 
form aligned with the print headr and finally close the front 
cover , 
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7,5 Disk I/O 

UATABUS noo allows a large variety of file structures and 
access methods. The structures can be dependent upon the physical 
sectoring of the diskr ohyslcally seguentialr or logically 
indexed. The access methods can be physically random^ physi cal 1 y 
sequential* logically random* or logically seguential with any mix 
of these being allowed on logically indexed files. This section 
will describe the various file structures that can be created/ how 
positioning is maintained within these structures* and how access 
to deslrea Information within the structure can be achieved. It 
will then describe the various operations that can oe performed 
upon the information within the file, 

7,b,l Mle structures 

The most basic structure within a file is a physical record, 
A physical record can contain at most 251 data characters (note 
that there is no decimal number compression within any of these 
file structures so a number always occupies the number of 
characters that are contained within the f-UNM which defines the 
number), A phys 1 cal record corresponds to exactly one physical 
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sector on the disk and is always terminated by a 003 character* 

[he next level of structuring is a logical record. Depending 
upon the way the user st ructures h i s tile there may or may not be 
an integral number of logical recoras witr'in a physical record* A 
logical recora is terminated by a Olb character after which 
another logical record begins, ^^Jote that logical records can 
extend across physical record Doundaries (terminated by 003 
characters) so that a file with logical records may appear in the 
first two physical records as follows (the items in parentheses 
are the logical and physical record termination characters); 

0iiattb^6'5Ba AASDFQy^itRKFKDSKA (015) l^iaBaB (003) 
BadS LAKSJDFLKASDFKKJ (01b) 468^8388463 Kl (003) 

Note that the first logical record extends about two thirds of the 
way through the first physical record and is then terminated by 
the 01b Character, The first seven characters of the second 
logical record ^re also contained in the first physical record at 
which point the first physical recora is terminated. The rest of 
the second logical record extends about half way through the 
second physical record and is then terminated by the 01b 
character, . At this point the third 1 ogi cal record starts and so 
on. 

Also note that there is no restriction upon the length of a 
logical record (a single logical record may extend across many 
physical records) but that it is a good idea to keep logical 
records reasonably short to prevent them from becoming hard to 
deal with. If it is wanted to keep only one logical record per 
physical record then make the file appear as follows: 

011^abb836c* AASDFQi'VtRKKKDSKA (01b) (003) 

iaia.Ha6daB3 laKvSJdflkasofkkj (oib) (ooi) 

aB6f^a3B8aB3 KUKJLKJLKSJOFKU (01b) (UOS) 

;-Jote that it took more disk space to store the same amount of 
information in this case than in the previous case, it is 
sometimes desirable to give up this snace in return for the 
caoanility of using the fastest accessing fsethod of directly 
accessing ohvsical recorcis, i^ structure ,vhich allovvS logical 
records to cross physical record houndarif's is called a record 
compresson structure. 

In some data files large numbers of contiguous spaces appear, 
fnese files can be compresseo even furtner tnan simple use of 
record compression by the use of space cortr' ress i on (the general 
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IS THt TIMfc FUK (Olb) 

IS THt(0n)(002)TlMt(0U)(007)FOk C015) 



The second pecoPd i s physi cal 1 y shoptep than the first by six 
characters. It may seem silly to comppess two spaces into a two 
chapactep comppession code but most ppogpams do this because it is 
logically simplep to ppogpam. If mope than 25b contiguous spaces 
appeap in the data pecopdr multiple space comppession codes will 
appeap. Space comppessed pecords ape most useful whepe large 
numbeps of spaces appeap in the file (as in ppint files) and whepe 
the pecopds ape not to be modified in place. If the pecopd is to 
be modified in places space comppession is discoupaged since the 
numbep of spaces could change and the physical length of the 
logical pecoPd could change, 

A file which can be accessed physically sequentially must not 
have any physical pecopds without the ppopep fopmat between the 
beginning of the file and an end of file mapk. The end of file 
mapk always stapts at the beginning of a physical pecopd and 
contains exactly Six 000 chapacteps followed by the physical 
pecoPd tepmination charactep (003), The rest of the characters in 
the physical record are of no significance. Note that if there 
are no physical records besides the one containing the ena of file 
markf the file would be null (wnich is a val i d condi t i on for a 
file). 

A physically sequential data file can be logically indexed. 
One cannot tell that a file is inoexed by looking only at the aata 
file since the indexing information is maintained in a separate 
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f 1 le cal led the Index fHe (and usually of DUS extension ISI)« 
The index file contains the name ana extension of the data file 
which It indexes ana a set of keys and pointers which relate the 
key value of a logical record to its physical position within the 
data file, DUS utilities exist for the creation of the index fllf? 
which must always be performed putslae of the DATABUS 1100 
interpreter. 

The Inaex file is a n-ary tree where n Is determlnec by the 
length of the Key ana where there are enough levels to make the 
top node In the tree always fit within one disk sector (contain at 
Tiost n oranches). One can conservatively estl.-nate the nuffber of 
sectors that will be used in the index file by the following 
method. The actual number used may Pe less oecause trailing 
spaces in keys are discarded and more than the minimurr. number of 
keysmayfitinasector. 

To compute the Index file length? divide 2bO oy the key 
length plus / and discard the remainder (do not round up the 
result). This number should then oe divided into the number of 
loQlcal records to be Indexed and the answer rounded up (if the 
remainder is non-zero then add one to the answer and discard the 
remainder). Save this number which Is the nyr^ber of sectors at 
the lowest level of the Index tree. Then divide d^O by the key 
length plus i and discard the remainder. This numner should then 
be divided Into the number saved before the previous step and the 
answer rounded up. Save this numper which is the number of 
sectors at the next higher level of the index tree. If the answer 
produced Is greater than one? repeat the previous step (oividinq 
<^bQ divided by the key length plus i into the previous answer), 
i'vhen the answer has been reduced to one* total all of the numbers 
of sectors required for each level ana the result will be the 
total number of sect ors requi red in the index file. 

For example* assume that the aata file contains luOOO logical 
recoras and the. key is 10 characters long. The first computation 
is £bu/(10f7) = la,/l or la discarding the remainder, Ihe next 
computation Is 10000/14 = im^i9 or 7\'d rounding up. Therefore^ 
the lowest level of the index tree will reguire HS sectors. The 
next computation is ?S0/(10+3) = 19, iS or 19 discarding the 
remainoer. The next computation is /IS/l*! = ^7, hi or 5H rounding 
up, 1 h e r e f o r e r the ri e x t higher level of t n e i r-^ o e x tree will 
^cgu1^{^ an additional .5H sectors. Tho next computation is 58/19 = 
^,00 or f? rounding up. Therefore, the next hiuner level of the 
index tree will reguire an additional c' sectors. The nt^xt 
computation is ff/19 = 0,11 or I rounciing uf^, Since one sector has 
neen reached, the totals are maae: /lS+3b + r.'+l = Ibb sectors for 
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the entire Index tree. 



1^b*i Positioning Qr\6 accessing 

In DATABUS U00> all files are referenced by way of logical 
files, Iheae files are declared in the data area of the program 
usiny the ^ILt and IFILE dec! arat ions. The declarations relate a 
logical file to a certain physical file that Is specified by the 
UPEN or prepare: statement performed upon the logical file. The 
data space used by the declaration holds all of the physical 
position Information needed for that particular file. During file 
operations^ DATABUS UOO establishes a position within the file 
using a specified access method and then increments this position 
based upon the operation specified. 

For physically accessed fllesr a file position is defined by 
a physical record number CO through the maximum number of records 
in the file) and a character pointer within this record (1 
through 2^9), When the file is i n1 t 1 al 1 y opened (with OPtN or 
PNEPAKL), the physical record number Is set to and the character 
pointer is set to U All reed and write operations sequentially 
increment the character pointer as the individual characters dre 
read or written. If the physical record terminator (OOJS) is 
reached during a read or the ai»9th character Is written during a 
wrltei the character pointer Is reset to I and the physical record 
number is Incremented (when writing* a physical record terminator 
is automatically written after the a49th data character before the 
physical record Is written out to the disk and movement on to the 
next physical record Is made). If an end of file mark is written* 
the current physical record is terminated* the physical record 
number is Incremented (unless the position was at the start of a 
physical record when the operation was entered)* the end of file 
mark is written In the first seven characters of the new physical 
record* and the character pointer is left at I, 

The Character pointer may be set directly by what is called a 
tab operation in some disk I/O statements. WRITAB* UPDATE* and 
all read operations may contain these positioning operators, i^hen 
physical access is being made to the file* the tab position given 
in the statement is relative to the beginning of the physical 
record. .Aihen Indexed access is being made to the file* the tab 
position given In the statement is relative to the beginning of 
the logical record. Note that when tabbing relative to the start 
of a logical record* it is an illegal operation to tao past the 
end of a Physical record. Therefore* when using tabs in inaexed 
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iWest there should always be an integrtal number of logical 
records per physical record to prevent tabbing past the end of a 
physical recorcu I'^lote that taboing may not oe usea when physical 
access is oeinq made to a file declared as indexed. To do tabbed 
physical accesses to the file as well as indexed accesses^ declare 
ti«(0 logical files to the same data file; one to be used for 
physical accesses (having been declared usinci the f-llt directive) 
and tne other to be used for indexed accesses (having been 
declared using the IFILE direct ive), 

^ilhen an indexed file is being used, two additional pointers 
are kept for the logical file, Ihe first is a pnysical record 
number and character pointer to tne first character of the last 
logical record accessed using the index. The second is a pointer 
to the next seguential key after the last key accessed using the 
index. The first pointer enables re-reads and upnates to oe made 
to the indexed file and the second pointer enables tne indexed 
file to oe accessed sequent i al 1 y oy key. Mote that neither of 
these pointers is changed when a physical access is maoe using the 
1 ogical f i 1 e. 

An additional counter maintained for all logical files is the 
space compression counter. Ihis counter is used in the 
decompression of spaces during readr the compression of spaces 
during write# ami as a f 1 ay as to whether or not space compression 
is to be performed during a write (decompression will always be 
performed by the read). It is suggested that the reader come back 
and read the following paragraph closely after he feels he 
understands the disk reao and write access methods and operations 
since some of these ideas are referenced m the following section. 
One must understand the following section tq be able to 
effectively deal with space compressed files. 
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t)y any other operations. If the aeslred space compression mode 
for a write operation is not obtained by the above rules then the 
*+ and *" controls will have to be used to get the desired mode. 
Note that these controls can erase the memory of previously 
accumulated spaces if used after the beginning of the statement 
list while spate compression has been on. 



/,b,<?,l Physically Random Access 
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7,5.2,2 Physically Sequential Access 

One can cause the read or write operation to simply 
where the physical record number and character pointer a 
currently positioned by specifying a numeric variable wi 
negative value in the record specifier. Usually^ when a 
write operation is finished^ it leaves these pointers at 
beginning of the next logical record. However* a read o 
operation can be parameterized (by placing a semi^colon 
of the variable list) such that it will simply leave the 
after the last character dealt with. In this case? the 
sequential access can be used to continue a previous ope 
from where that operation stopped. The previous operati 
have used any access method (including this one) which i 
that one can continue a logical record to any length, H 
is often a good idea to keep logical records reasonably 
prevent them from becoming hard to deal with. Note that 
and INDtx utilities require the key value to be within t 
?bS characters of a logical record. 
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/,b.f?.3 Indexed Access 
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associated index file which associates key values to physical 
record number and character pointer values. There are five basic 
indexed operations? read a record of a qiven xey valuer read a 
record of the next ASCII sequential key value, update the record 
that was last accessed through the index# insert a new record of a 
given unique key valye# and delete a record of a qiven key value. 
Since there can be any nymDer of indexes into one oata file^ the 
insertion and deletion operations will have to perform key 
insertions and deletions uPon all indexes. Therefore, these 
operations will have to be performed once for each index that 
points to the data file, 

hor the indexed read and write operations? once the indexed 
access has been performed (the physical record numner ano 
character pointer values have been set), the actual operation is 
performeci identically to the operation as porformen for physical 
accesses. The one exception is when a record is neiny inserted. 
Since records ar^ always inserted at the physical end of the file, 
a new end of file mark must be written after the inserted record 
has been written. In this case, a flag is set so that when the 
wri te statement has been finished (and it has not been specified 
that the wr i te operat i on is to be continued), then the eno of file 
mark will automatically be written. This automatic end of file 
mark writing operation will not oe performed if the write 
operation is to be continued, thereby makmci it the responsibility 
of the OATABUS 1100 program to write the end of file mark when the 
record has finally been written in its entirety. 

The indexed access using a given key value will cause at 
least one disk sector to be read for each level in the inaex in 
addition to whatever disk functions are required to perform the 
actual read or write operation. If records have oeen inserted 
into the ind^ and the INOfX utility has not been run since then, 
additional disk sector reads may take place depending upon the 
length and path of the linked list at the lowest level in the 
index. Therefore, when many insertions are beinq performed the 
liNiOtX utility should be run as often as is practical to keep the 
access t i f^^e from t)ecominq overly Icirfie, aIso, -<hen ^ (jata oase is 
oeing initialized, it is not a good idetj to tujilo i t. from a null 
inaexecj file doing insertions, it would v. a nuch more efficient to 
builu the data base physically sequent! fill y as long as indexed 
accesses neea not be mane to it ann then create the incJex file on 
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a reasonably large data file after which additional 
then be ma^ie using the insertion facility. 



insertions can 



/♦b,«?,4 Physical Access to Indexed Files 

Both physical 1 y random and sequential accesses inay be made to 
indexed files. Thereforef a file can be indexed only on primary 
records and the rest of the records obtained using physically 
sequential accesses, A file which is already physically randomly 
accessed may have an index added based on some other key value for 
fast access to other aspects of the file. If the file has been 
declared as indexed (using the IFIIE directive) then all access 
methods may be used upon it. However* if the file has been 
declared as non»indexed (using the KILt directive) then only 
physical access methods may be used upon it. 



7.S,5 PRfcP or HKEPARt 

PRtPARt (the compi ler wi 
used to create a new file und 
used for the DOS file name is 
literal specified in the PREP 
for the name start from under 
variable and continue until e 
has been reached or eight cha 
item is a literal^ the formpo 
points to the last character, 
reached before eight characte 
characters are assumed to be 
OATABUS nOO are of extension 
the name variable or the char 
the name is less than 8 chara 
for that file, if the charac 
no character physically exist 
specification is assumed and 
are searched when looking for 
directories, Otherwise* only 



11 also accept a mnemonic of PREP) is 
er the DOS file structure. The name 

given in the string variable or 
ARE instruction. The characters used 

the formpomter of the specified 
ither the logical end of the string 
racters have been obtained, (If the 
inter is one and the logical length 
) If the end of the string is 
rs are obtained* the rest of the 
spaces. All data files used in 

TXT, The character after the 8th in 
acter after the logical length* if 
cters* is used as the drive number 
ter is not an ASCII 0* 1* 2t or "i or 
s past the name* no drive 
all drives starting with drive zero 

a name in the directory or 

the drive specified is searched. 



If the tile already exists (and is not delete or write 

protected)* it is deleted and a new file created. If the file has 

any protection or the drive specified is off line* an 10 error P 
or 1^; respectively willoccur. 
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UATABUS llOU always deals with "loqical files" once they are 
openea with either the PRtPARt or QPfcfv instructions. Any number 
of logical files can be opened at one time? the limitation being 
the amount of space the user has available to devote to the data 
space needed by each lodical file that is declared. The loqical 
files are declared using the PlLt or IHLt instructions (see 
Section i,l), NOTES The PHtPARf' i nst rue t i on can only create a 
file that has been aeclared as a PILE type, 1 he compiler will 
flag an attempt to PREPARE" a file that has oeen declared as an 
If III type. If ILfc type files must be createa by use of the INDEX 
utility running under the DOS, 

for example^ let the following definitions be made: 



PDfcXL 


FILE 




FINiAMEl 


If^lT 


"FUEl" 


eNAMEe 


I NIT 


"FILta I" 


PNAMES 


I i^i I T 


"ASuFFiLti^" 



Let the formpointer and logical length of FiMAf'^El be 1 and bf that 
of FiMAi^ihif t)e 1 ana 9, and that of FNA^Ei be S ana 9, Then if the 
statement, 

PNEPAHE FDECLfFNAMEl 

were executed? the file FILEV/TXT would be preparea as logical 
file f-DtCL on the first drive (beginninq with drive 0) on which 
space was available, if the statement: 



PREPARE FDECLrFNAMEa 

were executed? the file FILEH/TXT would be prepared as 
file FDECL on orive 1, If the statement: 



1 oQi cal 



PREPARE FDECLrFr^iAMEi 

>iere -executed? the file FILEi/TxT woula be pr€>parea as logical 
file FuECL on drive P., If the statement: 

PHEPAHL f-UECL? "ASDf-" 

;^prc executed, the file A30F/lXi would be oreparefs as lonical file 

f-!)M.I. on tne first drive on •« h i c h space <^as available. If the 
statement : 

PREPAKf KnCL?"u^^^^t R i" 
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were executed, the file QwEN/TXT would be prepared as logical file 
PUtCL on drive i. 

If the logical file specified is already open (having been 
specified in a previous PREPARt op UPtN instruction and not since 
in a CLUSt instruction), the old file will pe closed before the 
new one is oealt with. 



/*hen preparing a very large file a program should be run to 
write a dummy record into the largest record number. This will 
cause the Dt)S to allocate all records up through the one accessed 
in as physically contiguous a manner as possible, thus increasing 
the speeci with which the file may be randomly tjccessed. Note that 
the use of the l)US implies that a file must be contained on one 
drive. If the writing of the dummy record tries to extend the 
file past the amount of space available on the disk, an error R 
will occur. 



RememDer that space compression mode for »^riting is left 
oy a PRtPARt instruction , 

/,5.a GPtr-i 
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FDECLl 
FDtCL^ 
FDECLi 



FILE 

IFILh 

IFILf. 



ano a data file FILEl/TXT existed and the ISI tiles FREl/ISI and 
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FILhlA/ISI had been created using the lj->OtX utility as follows; 

INUex FILiia-S 

Ir^DtX till 1,FUE1A;6-10 

and the following UPE.N statements were executed: 

UPtN PDKCLWf-iLhi" 
DPEfM FDtCi^,"FILtr' 
QPtM FDECLi,"MLhlA» 

then the logical file FDtCLl would be opened to the normal 
tphysical access) f i I e F ILF-l / I X T , the loqical file FDtCLl would be 
opened to the indexed file whose index name was FILtl/iSl and 
whose aata file name (as specified in the FiLEl/ISI header) was 
FiLtl/lXT> and the logical file FDtCLi wvoula oe opened to the 
indexed file s^hose index name was FllElA/lSI ana whose data file 
name was FILEl/TXr, This would nive physical access plus access 
via two different indices into the oata file FlLLi/TX-T, Note that 
en ISI file does not have to reside on the same disk as the data 
file t hat i t i ndexes, 

KememDer that space compression mode for writing is left on 
by an OPEN instruction , 

7.b,5 CLUSt 

CLUSE closes the specified loaical file. This insures that 
any newly allocated space that was not used in the file will be 
returned to the DUS for allocation to another file, 

txampl el 

CLOSE FOECL 

If only reads or updates were performed on the file, the CLOSE 
instruction does not need to be used. Also, a CLOSE is 
automatically performed when one opens or prepares a logical file 
that is already open. v^hen a ChAlfNi is performed, all files that 
are currently open are automatically closed without space 
deallocation being performed. iviote tnat this means files cannot 
be held open across prooram chains. Also, if tnp interrupt key is 
struck c) chain is automatically invokeci meaning that all files 
^}\] t)e closed without space deallocation, 

LLuSL is nlso usee to delete a tilo fro'? the L'OS file system. 
It a rV'tC IS perforrrieo on a lonical tile and the next operation 
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performecj upon the logical file is a CLUSL# the file described by 
the logical file declaration will be deleted from the DOS file 
system. 

/.^•t) KEAD 

NtAD performs all file data reads (physically random, 
phyfically sequential r indexed random, tabbed or not) except for 
indexed key sequential reads. The REIAD statement format consists 
of a logical file declaration name, a record specifier variable 
(numeric or stf*in9), and a list of variables to be filled by the 
data from the record. The list may also contain tab indicators 
which can specify that only certain portions of the data record 
actually be read into the variables listed. Tabbing is a OATABUS 
1100 feature which can el imi nate unwanted data transfers from and 
to the disk controller buffer and can allow the programmer to save 
considerable space in his data area. It can only be used, 
however, when the logical records do not cross physical disk 
sector boundaries. This condition can usually be enforced through 
the use of the REFORMAT utility and careful use of the DATABUS 
1100 write instructions, 

Vihen data is transferred from the record into a numeric 
variable that is specified in the READ statement list, the number 
of characters corresponding to the length of the variable are read 
in. Any non*leading spaces read will be converted to zeros (e.g, 
sist'sl, where s stands for a space, would be read as s3020n. If 
a non*numefic character other than a negative sign as the first 
non^space character, decimal point, or space is read, a FORMAT 
trap will occur, A FORMAT trap will also occur if the variable is 
dimensioned to one and the character is a negative sign. A FORMAT 
trap occurs if the data does not match exactly the format of the 
numeric variable to be read. For example, if X was dimensioned to 
4.2 and the characters read were 777/677, a FORMAT trap would 
occur since the digit 6 appeared where a decimal point appeared in 
the variable. If a FORMAT trap occurs during a readi the logical 
file pointers are left pointing at the current file position 
before the read was attempted. 

If a numeric variable to be read includes a "mi nus'overpunch" 
character, the variable is converted to the normal numeric format 
with the minus sign preceeding the f i rst non-bl ank digit, 

When a string is read, the number of characters corresponding 
to the physical length of the variable are read into the variable. 
The formpointer is set to one ana the logical length is set to 
point to the last physical character in the string. 
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If the end of the logical record is reached before all 
variat)les in the list have been read in full, and the variable 
t^hich is Deing filled with data w^hen the tOR is detected is a 
string? it wiil have its logical length pointer set to the last 
Character entered before the hUR ^as reached and the rest of the 
characters physically in the string paddea with spaces, Note that 
this fact can be used to advantage when reading sequential space 
corr.pressed files. Remember that the trailing spaces in such file 
records are not written and that the DISF^LAY and PRlNl statements 
can be forced to output only up througn the character being 
pointed to by the logical length (using the *t control). These 
features can be combine'd to make listing sequential files on the 
terminal or printer much faster py the deletion of trailing 
spaces. 



Ihe above discussion deals with the action taken ^hen the end 
of the logical record is reached while reading data into a string 
variable. If the data is being read into a numeric variable? the 
rest of the variable is padded with either spaces or zeros as 
appropriate. Note that if one of these locations within the 
variable is the dec i r^al poi nt ^ a f-UHHAT trap will occur. 

If the list contains more variables after the one being 
the end of the logical record is detected* these 

(if numeric) or have their 




A HA-Ujfc trap will occur ana the logical file pointers will 
not t)e changed if an attempt is Tiade to reaa a record which has 
ne^ver Pefore been written, (i^iote that tne DOS KAivGfc or f-uRMAT 
traps will ooth cause a UAlAbUS ilOO HA^sibt, trap and that the 
i)MrAlilii5 liUU FUHMAl trap has ncUhiny to do with the OUS |-fjR^SAT 
t rap. ) 

Ihe following is a list of the different types of RtAD 
statements. In the examples* the variable i-<h is a positive 
nu'T'er ic item* 3E.U is a negative nu'"neric item* KtY is a non^null 
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string item# NULL is a null string item, FNDtCL is a FILE 
declaration name# FIDtCL i s an IFILE aeclaration namCf and FDtCL 
is either a FILF. or IFlLt declaration name. 



7.b,6,l lest for End (3f File 

Before discussing the RtAD operations* the end of file 
indicator should be discussed. The OvER condition flag being set 
indicates that a Kf.AD operation has run across an end of file mark 
on physical accesses or has accessed a non-existent key on indexed 
accesses* The test for the UVEH condition should be made after 
the RtAD statement. For example; 

RtAD FDECLfSeQ;A,B,C 
GQU.) LABEL IF UVtR 

If an end of file is read on physical accesses* the variables in 
the statement ^i\] be set to zero or have their logical lengths 
and formpointers set to zero depending upon whether they are 
numbers or strings respectively. Note that the OVER condition 
will also be set if a semicolon appeared at the end of the READ 
list. The way the HEAD mechanism works* whenever an end of file 
mark is found the file pointers "stick" at the beginning of the 
mark and spaces are supplied for all characters requested to fill 
variables. Therefore* if one continues to perform READ operations 
Ignoring the fact that the OVER condition flag is being set* the 
READ operations will simply continue to set the QVER condition 
flag and clear or zero al 1 vari abl es. This is also true of READ 
operations whose lists are terminated by semicolons. 

The OVER condition being set after an indexed READ operation 
indicates that the KEY specified could not be found in the index. 
For a READKS (read key sequential) operation* the OVER condition 
being set indicates that the last record in the sequence has been 
read and the current operation tried to read a non*existent 
record. See the relevant sections that follow for further 
information on indexed operations setting the CJVER condition flag, 

RtAD FDtCL*RNJA#B*C 

(his is a physically random access read. The physical record 
pointer is set to the value of RN and the character pointer is set 
to the beginning of the physical record Cany digits after a 
decimal point in RN sre truncated). 
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cUscarded since the operation leaves the file pointers pointing to 
the beginning of the following logical record, 

READ fdeci#rn;a,b,c? 

This is similar to the above operation except that the file 
pointers are left pointing to the character after the last one 
read into the variable C, This enables another I/O operation 
(write as well as read) to continue from the character after the 
last one loaded into the variable C, 

READ FOECL^Sfc:Q;A,B,C 

This is a physically sequential access read. Variables A# 8f 
and C are read from logical file one beginning at the position 
indicated by the current file pointer values. The file pointers 
are left pointing to the beginning of the following logical 
record, 

READ fdeci^seq;a,b,c; 

This is similar to the above operation except that the file 
pointers are left pointing to the character after the last one 
read into variable C, This enables another I/O operation (write 
as well as read) to continue from the character after the last one 
read into the variable C. 

head FDECLfZERO?; 

Assume that the numeric variable ZERO is defined to be a zero 
in value. This operation would then cause the file pointers to be 
positioned to the physical beginning of the file exactly as if a 
PREPARE Of OPEN instruction had just been performed. This implies 
that space compression will be on if a WRITE is then performed^ 
and the user must turn off space compression if it is not desired. 



READ FD£CLrRN?Af*l00fB,*NVARiCr*50,D? 



By including the tabbing controls in the read statement list# 
selected positions may be read from a record without having to 
read all of the positions in the record. The list controls 
*(numeric literal) or *(numeric variable) are used to position the 
character pointer to the specified character position in the 
specified physical record and may appear anywhere in the list, 
Reading for the rest of the list (unless another positioning 
control is encountered) begins at the character position specified 
by the positioning list control. Note that tabbing in physically 
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random access reads is allowed only upon logical files that have 

been declared using the FILE directive (since the tab values are 

biased by the starting point of the last index accessed record on 

reads using a logical file that has been declared using the IFILE 
di rect i ve) • 

Tab positioning in physical ly random access read operations 
is calculated from the first data position of the physical record 
specified. If the tab position is greater than 249 characters^ an 
lU trap will occur. When reading 4s completed^ the character 
pointer is moved to the beginning of the next logical record if 
the statement list is not terminated by a semicolon. If the list 
is terminated by a semicolon^ the character pointer is left 
pointing one character position past the last character read. 

Note that tab positioning in a physically random access read 
operation will inhibit the ability of that operation to detect an 
tOF mark that may be in the given sector. Either a non-tabbing 
read can be performed first (to determine whether an EOF exists in 
the sector in question) followed by the tabbing read if the EOF 
was not founds or the programmer can invent his own EOF marking 
convention (which will not require double reads). 

The above example would set the physical record pointer to RN 
and the character pointer to one and variable A would be read. 
The character pointer would then be set to one hundred and 
variable B would be read. The character pointer would then be set 
to the value contained in the numeric variable NVAR and variable C 
would be read. The character pointer would finally be set to 
fifty and variable Dwould be read. The character pointer would 
be left pointing after the last character read into variable D 
since a semicolon appears at the end of the list. 

Note that for physically random access readsr it is generally 
a good idea to place a semicolon at the end of the list if the 
next read will involve an access to a logical record other than 
the one which appears next physically. The reason for this is 
that there is no need to require the processor to scan the rest of 
the logical record in an attempt to place the file pointers at the 
beginning of the next logical record when that placenient will not 
be used. This is especially helpful if the read does not leave 
the character pointer near the end of the logical record as would 
often be the case where tabbing is being used. 

Note that using the read tab on physically sequential access 
reads (where the record number specified is a negative value) is 
possible but not advisable* Tab positioning on ohysical accesses 
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is always caVculated from the first character position in the 
current physical record. The program could obtain characters from 
a previous or following logical record if tabbing is used in a 
file where the relationship between logical and physical record 
boundaries is not known. 



READ FIDECLfKEY;A,B,C 
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If a match is found, the next key pointers are left pointing 
to the following item in sequence in the index file, the physical 
record and character pointers are obtainea from the index file, 
and the rest of the read proceeds precisely as if a physically 
sequential read were being performed, i/^hen finished, the file 
pointers are left at the start of the physically next logical 
record in the f i le. 

If no match is found, the OVER condition flag is set, all of 
the variables in the list are left with the values they had before 
the READ was attempted, and the next key pointers are left 
pointing to the next item in sequence in the index file. 
Therefore, a read key sequential (see the section on READKS) can 
be performed to obtain the first item by collating sequence 
following the item that could not be found. This can be very 
useful for obtaining lists of classes of items. 

For example, one could have a file of serialized items with 
model codes. One could index the file on the model code followed 
by the serial number. He could then access a given model code 
with a serial number of all spaces (spaces being lower in 
collating value than zeros). The access would return with the 
OVER condition flag set indicating that no such item existed in 
the file. The program could then proceed to read sequential by 
!<ey obtaining a list of the serial number of all items of a given 
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model code by the collating sequence of the serial number. The 
program would have to detect when the model code changed to 
determine when the list of a given model code should be 
terminated. 

Another feature is that physically sequential accesses can be 
made after an indexed access* The INDEX utility allows a file to 
be indexed only upon what are cal 1 ed primary records (this is a 
30HT utility option). For example^ a file could consist of a 
primary record followed by five secondary records followed by 
another primary record fol 1 owed another five secondary records and 
so forth. If the index were built only on the primary records^ 
one could do an indexed access to the primary record and then do 
five physically sequential accesses to read the five secondary 
records. 



An indexed access read takes approximately half a second 
regardless of the size of the data file. This assumes that 
relatively few insertions have been made upon the file. See 
section below on index insertions (WRITE) for a discussion on 
insertions can affect the indexed access timing. 



the 

how 



READ FIOECL^KEYfAfBfC; 

This is similar to the above operation except that the 
physical file pointers are left after the last character read 
ratherthan at the beginning of the physically next logical 
record. This is useful if one is not going to do a physically 
sequential access afterwards since it saves time not scanning to 
the end of the logical record. It is also useful i f one wants to 
read the rest of the record in a later READ operation or to update 
the rest of the record by following the indexed read by a 
physically sequential write, 

READ FID£CL#NULL;A,B,C 

This is an indexed re-read. If the index key supplied to the 
READ operation is null (logical length and formpointer equal to 
zero)t then instead of accessing a given item based on the key# 
the operation re-reads the last logical record that was accessed 
using the index specified by the given logical file. Remember 
that physical accesses do not change the pointer to the last 
record accessed using an indexed access. 

This operation enables one to re-read an indexed record 
without having to search the index file for a given key. An 10 
error is given if there has not previously been a successful READ 
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performed using a non-null key on the specified logical file. 
Qthepwisef the operation proceeds exactly as in the normal indexed 
access READ. 

. READ FIDECL#NUlL?ArBfC; 

This is similar to the above operation except that the 
physical file pointers are left after the last character read into 
the vari abl e C, 

READ FIOECLfKEY;*a5^Br*NVAR,C#*lO,0; 

This operation performs an indexed access* positions the 
character pointer to column 25 relative to the beginning of the 
logical record# reads the required number of characters into the 
variable 8f positions the character pointer to the column 
specified in the numeric variable NVAR relative to the beginning 
of the logical record? reads the required number of characters 
into the variable C* positions the character pointer to column 10 
relative to the beginning of the logical record* reads the 
required number of characters into the variable Or and leaves the 
physical record pointers after the last character read. Note the 
difference between using tabbing in physical accesses and indexed 
accesses is that in indexed accesses the tab position specified is 
made relative to the beginning of the logical record and not to 
the beginning of the physical record. The reason for this is that 
one may desire to have several logical records per physical record 
in an indexed file and be able to use tabbing on the accesses to 
that file. The problem is that when doing indexed accesses* the 
program has no idea of where the logical record is in the physical 
record so the system must make the tab values relative to the 
beginning of the logical record to make tabbing in indexed files 
useful. Remember that an attempt to cross a physical record 
boundary with a tab results in an 10 error. 

Note that once again it is usually advisable to use a 
semicolon at the end of statements using tabs since it just wastes 
time to cause the processor to scan to the beginning of the next 
logical record if the next access to the file will not be to the 
physically next logical record. 

READ FIDECL*NULL;*25*B**NVAR,Cf*10*D; 

This is similar to the above operation except that the last 
key-accessed record in the given logical file is read instead of a 
new index access being made. 
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READKS FlDECLlAfBfC 

READKS FIDECL;*25^A,*nVAR,B#*10#C? 

Except fop the access methods the functioning of READKS is 
identical to the functioning of en indexed access READ (this is in 
pefepence to the action taken once the desiped logical pecopd is 
located), 

7.5,a WRITE 

The wpite statement is used fop physically pandom# physical 1 y 
sequential^ op indexed inseption wpites. The wpite statement 
consists of a logical file declapaction name and a pecoPd 
specifiep (a numepic vapiable fop physical accesses and a string 
vapiable fop indexed inseptions) followed by a list. The list may 
include vapiable names* quoted chapactepsi and octal contpol 
chapacteps (000 thpough 037), Note that tab positioning is not 
allpwed in the vvRITE opepations (the WRITAB opepation must be used 
to do tabbing in writing functions). 

Each chapactep stPing vapiable in the wpite list will be 
wpitten fpom its fipst physical chapactep thPough the logical 
length. Spaces will be wpitten fop any chapactep positions 
between the logical length pointep and the physical eno of stPing, 
Each numepic item will be wpitten in total. Note that only the 
data in each vapiable is wpitten and not any of the contPol 
information (logical length, fopmpointep, 0200» op ETX), The 
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quoted items and octal control characters will be written exactly 
as they appear in the Hst» For example^ if the following 
definitions were made: 

TIME: INIT "10;a3" 
TOTAL FORM "001" 
FDfcCL FILE 

and the statements 

WRITE FDECLrRN;"TIME! %TIME, 015, "TOTAL! "/TOTAL 
were executed, the file would be written with the charactepsi 

TIMES IOS23(015)TOTAL$ 00U015)(003) 

where the (015) and (003) denote control chapacters. Remembep 
that ceptain contpol chapacteps (000, 003, Oil, and 015) mean 
special things to the pead operations and theip use can cause 
confusion. In the example above, two logical pecopds wepe wpitten 
with the one wpite statement because of the 015 wpitten in the 
middle. 

The fopmat contPol, *Zf may be used before any numepic 
vapiabVe to cause ?epo*fill on the left, moving the sign to the 
left if neccessapy. 

The fopmat contPol *MP convepts a numepic vapiable to a 
"minus*oveppunch" fopmat, whepe, on negative numepic vapiables, 
the minus sign is ovep*punched ovep the pightmost digit. The *ZF 
and *MP ape valid fop the immediately following vapiable only, 

WRITE FDECL,RN?*ZF,A,*MP,B,C 

A negative oveppunched zepo convepts to a pight bpacket ">" and 
one thpu nine convept to "J" thpu "R". 

The following is a list of the different types of wPite 
statements. Although the following examples show lists with only 
thpee vapiables, it should be pemembeped that all of the WRITE 
opepation lists can contain the various items shown in the above 
exampl e, 

WRITE fdecl,rn;a,b,c 

This is a physically pandom access wpite. The physical 
pecopd pointep is set to the numeric value contained in RN and the 
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character pointer Is set to the beginning of the physical record 
(any digits after a decimal point In RN are Ignored), Variables 
A# Br and C are then written followed by end of logical record 
(Olb) and end of physical record (003) characters. The character 
pointer Is left pointing to the 003 character. Note that all 
WHITt statements are allowed on either PILE or IFIUE declared 
logical f 11 es, 

WRITE FDECLrRN;A,B,C? 

This Is similar to the above operation except that the 015 
and 003 characters are not written after the last data character. 
The character pointer Is left pointing after the last character 
written. This operation Is useful for writing the first part of a 
record where more of the record will be written later or for 
updating part of a record where the 015 and 003 would# If they 
were written^ destory data characters that followed, 

WRITE FOECLrSEQ?A,B,C 
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WRITE FO£CLfSEQ;A,B,C; 

This Is similar to the above operation except that the 015 
and 003 characters are not written after the last character In the 
variable C. The character pointer Is left pointing after the last 
character writ ten, 

WRITE FIDECLrKEY;A,B,C 

This is an Indexed access record Insertion, The KEY variable 
must not be null and the key specified must not already exist In 
the Index specified by the given logical file (either condition 
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will cause an IQ error). The search algorithm used to determing 
that the key is not already in the index is identical to that used 
in the indexed access READ operation. 
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Insertions will take longer if many records very close 
together in collating sequence are inserted together. When 
inserting items whose keys fall randomly within the collating 
sequence one can usually insert a number of records equal to one 
tenth of the total number of records in the file before the 
insertions will start to take significantly longer. It is 
generally a good idea to run the INDEX utility as often as 
practical when many insertions and deletions are being performed 
to keep the speed of insertions and indexed accesses as high as 
possible, 

(AiRITE FIDECL,KEY;A,B,C? 

This operation is also an indexed insertion write except that 
the new EOF mark is not automatically written at the end of the 
file. One could desire to finish writing the record with a later 
operation and could do this by following the above statement by 
physically sequential write operations and then writing the EOF 
maric at the end of the file One must make certain, however, that 
in doing this that no other program can try to do an insertion 
before the EOF is written or the other program will get a RANGE 
trap since it will not be able to fina the EOF which it will want 
to overstore. 
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7.5,9 ^RITAB 

This operation is the write tab feature which require? a 
different instruction mnemonic from the normal write operations, 
v\iith this feature^ characters may be written into any character 
position of a physical record without disturbing the rest of the 
record, A RANGE trap will occur and the logical file pointers 
will not be changed if a write tab is used on a record of the file 
that has never been written before. The write tab can be 
performed only upon logical files which have been delcared using 
the FIUE declaration. The UPDATE operation is used to do tabbed 
writes into indexed files. The list controls *(numeric literal) 
or *(numeric variable) are used to position the character pointer 
to the specified character position in the current physical 
record, writing of the variable begins at the poi nt speci f i ed by 
the position control. If no positioning is specified* the writing 
of the first variable starts at the beginning of the physical 
record. 

Tab positioning in physically random accessed writes is 
calculated from the first position in the specified physical 
record. If the tab position is greater than 249 characters^ an 10 
trap will occur. Only the quoted characters* octal control 
characters* and variables appearing in the list are written. The 
character pointer is left pointing one character past the last 
character written (there is an implied semicolon at the end of the 
i^KITAB operation), F-or example* 

WRITAB FNDECL*RN;A**70*B**10*C**NVAR*"TIME'' 

would write variable A beginning with the first position in the 
physical record specified by RN, Variable B would be written, 
beginning at position 70 in the physical record and variable C 
would be written beginning at position 10 in the physical record, 
the characters "TIME" would be written beginning at the position 
specified by the numeric variable NVAR (any places after a decimal 
point will be truncated) and the character pointer would be left 
pointing one character past the "E" written for the quoted 
characters "TIME", An 10 trap would occur and the record would 
not be written if NVAR was greater than 249, 

A word of caution is appropriate at this point in the 
discussion. If in the above example NVAR had had a value of 248* 
the letter "T" would have been written as the last character in 
the physical record specified by RN. That physical record would 
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then be written and the following physical record would have been 
read into the buffer. The letters "IME" would have then been 
written into the first t'hree positions of this new physical record 
and the record then written back out* If more tab positions had 
followed the writing of the characters "TlME"f these would have 
been in the new physical record^ not in the one specified by the 
contents of RN. This action would probably not be that expected 
by the programmer and would all take place without a whimper of an 
error message from the interpreter. Just be careful about your 
tab positions! 

Note that using WRITAB with a physically sequential access 
(where RN contains a negative value) is possible but not 
advisable. Tab positioning on physical accesses is always 
calculated from the first character position in the current 
physical record. The program could obtain characters from a 
pervious or fol 1 owing logi cal record if tabbing is used in a file 
where the relationship between logical and physical record 
boundaries is not known, 

7,5,10 UPDATE 



This operation al lows modification of the last record that 
was accessed with a READ or REAOKS operation. Only the logical 
file declaration name is supplied to this operation (no key is 
supplied) but the list may have all of the items allowed in the 
wRITAB list. For example^ 



UPDATE FIDECl.?A,*20,B,*a0f "ASDF%033 
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7.S,U INSERT 

This operation allows an index insertion into more than one 
index file. The WRITE operation mentioned earlier is used to 
physically insert the record into the data file and insert the key 
into one index file. If more than one index is being usedf one 
INSERT operatioh must be performed for each additional index into 
which an insertion is to be made, When the WRITE operation 
performs the physical record insertion^ a pointer is icept which 
contains the physical location of the newly inserted record in the 
data file. When the INSERT operation is performed^ the specified 
key (with a pointer to the remembered physical location into the 
data file) is inserted into the specified index file. Since only 
one of these insertion memory pointers is kept for each program^ 
one must make sure that all insertions necessary for a given 
record are made before performing the next WRITE to insert the 
next record. For exampler the sequence to insert two records into 
two indices would be WRITE INSERT WRITE INSERT and not WRITE WRITE 
INSERT INSERT, The format of the INSERT statement is as follows; 

INSERT FIDECLrKEY 

where FIDECL is the name of the logical file declared for the 
index being used and KEY is the string variable in which from the 
formpointer through the logical length is contained the key to be 
inserted in the index. An 10 error is given if KEY is null op if 
the key specified already exists in the specified index file. 
Otherwisef the key is simply inserted into the indeK, Note that 
it is not necessary to prevent the program from being interrupted 
between the WRITE and INSERT operations since the pointer to the 
record which was inserted is kept for each program and even if 
another program inserted a record in the same file or index 
between the WRITE and INSERT of the program in question^ all 
insertions would be performed correctly, 

7.5,12 DELETE 

This operation allows a record to be physically deleted from 
a data file and for its key to be deleted from the specified 
index. The DELETE instruction is also used to delete keys from 
other indices which can index the data file. For example^ 

DELETE FIOECL^KEY 

will delete the record specified by the key (whose value lies from 
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the formpointep through the logical length In the variable KEY) In 
the data file specified by the Index f 1 1 e spec 1 f 1 ed by the logical 
file whose declaration name Is FIOECL. The record is physically 
deleted by having all of Its characters up through the logical end 
of record mark (015 character) overstored with 032 control 
characters. The 032 character does not appear to exist when the 
record Is read using the DATABUS 1100 reaa mechanism or the 
REFORMAT utility read mechanism since when these mechanisms see 
such a character they simply bump the character pointer (moving on 
to the next physical record If running off the end of the current 
physical record) and try to fetch the next character. Therefore^ 
when DATABUS UOO performs physically sequential reads across 
records that have been physically deleted^ the records do not 
appear to exist. The REFORMAT utility eliminates these 032 
characters to close up the deleted space In a file and to make the 
file readable by other DOS utility programs such as SORT, 

The DELETE operation will not try to overstore the record 
being deleted with 032 characters If the first character already 
contains a 032 character. This allows the DELETE operation to be 
used to delete the key entries from all Index files which Index 
the given data file. For example^ 

DELETE FIDECLUKEYl 
DELETE FID£CL2,KEY2 
DELETE FIDECL3#KEY3 

would be used to delete the record and keys out of the three 
Indlcles which pointed to that record. The first DELETE would 
actually overstore the logical record with 032 characters and 
delete the key from the Index file specified by the loglcalflle 
whose declaration name was FIDECLl, The other two DELETE 
operations would only remove the keys from their respective Index 
files since It would be noted that the logical record already 
contained a 032 character In Its first position, 

7.5,13 wEOF 

Standard DOS end of file marks (000 000 000 000 000 000 003) 
In the first seven character positions of a physical record) can 
be written In DATABUS UOO, wEOF does not change the physical 
record or character pointers for the given logical file. For 
example^ 

wEOF FDECL^RN 

will write an end of file mark In physical record RN while 
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WEOF FDECL,SEQ 

will write an end of file mark in the next physical record after 
the current physical record pointer. Note that the WEOF operation 
may be performed upon logical records which have been declared 
either FILE or IFILE but that the record is always specified using 
a numeric variable for the record number. This implies that one 
cannot write an end of file mark using an indexed access. 
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Chapter 6. PRObHAM GL ;'nK at iom 



H , 1. Preparing Source Files 

Files containinq the source languaqe for DATAbUS 1100 
programs are prepared usinq the qeneral purpose editor running 
under D1JS»C and whose use is covered in a sepcjrate document. The 
editor tab stops may be set to be sultaole for keyin of DATABUS 
1100 programs by using the :T commana and sett inn two tabs^ one at 
10 and the other at cfO, 

6,(2 Compiling Source Files 

OATAbUS 1100 programs are coinpiled using the DATAbUS 1100 
compiler running under DUS.C. The DATAHuS 1100 compiler is 
parameterized in the following manner; 

liHUCMP <source> U<object>J lr<print>J i ; <L><C><t-><N><X><D>3 

F- i 1 e Spec i f i cat i ons: 

1 he compiler may be paramet er i zea with up to three file 
specifications. These file specifications follow the standard DOS 
conventions, Hefer to the DOS User's i>yiae tor further 
information concerning DOS file specifications, A bad drive 
specification for any of the files will result in the error 
message; 

HAD DFVICE SPECIFICATIO.N! 

if any of the f i 1 e spec i f i cat i ons are identical^ the message; 

SOURCE AND DBJfcCT MLES THE SAt^t or 
SOURCE A = jD PRIimT FILES THE SA^.E or 
LiHJECI AfMD PRINT FILES IhE SAr^^E 

'r i 11 lie en sp 1 ayecj, 

Ihe source file contains tre DaTaisuS llOo program text 
created with the editor. This tile must always be specifieo, Jf 
no extension is given on t ^ e source tile n^iwe r the extension TXT 
is assun'ea. If t^r source file name is not supplieor the "message ; 
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.aAME RtQUlRED, 

will ue displayed. If the source file name does not exist in the 
DOS directory> the message? 

will t'e displayed. It no drive is specified^ all drives beginning 
VI th drivo U will be searched for the source file, 

The object file will contain the object code generated by the 
compiler from the specified source code. If the name of the 
ot)ject code file is not yiven^ the name of the source code file 
with an extension of DBC will be used for the name of the object 
code file. Note that DATABUS 1100 can run onl y t hose f i I es with 
extension DbC, If the source code file is specified without a 
drive number^ the compiler will search all drives for the name 
given. If the object code file name (with the extension specified 
or the assumed extension Q6C) is not found on any driver the 
object code file is placed on the same drive as tne source code 
file. If the object code file is found* it is killed and 
re-opened on the same drive it was found on to assure a maximally 
contiguous file space is available, 

Tne print file specification is also optional. If it is 
9iven# any print output requested will be written in this file (in 
the standard GEDIT format) instead of being printed on the local 
printer. Top of form will be indicated by the character 'I' in 
column one of the print line. Otherwise* column one is always 
blank and the line starts with column two (this is the standard 
CDBPL and FORTRAN print file format). 

If no name is given for the print file specification* the 
source file name will be assumed, I f no extension is given* an 
extension of PRT will be assumed. However* if the orint file is 
to be reaa under DATABUS 1100 it must have an extension of TXT 
since all DATABUS 1100 data files must have that extension. If no 
drive number is spec i f i ed* the print file will be placed on the 
same drive as the source file, A print file may be specified 
simply by keying in a comma after the object file specification 
or* if no object file is specified* by keying in two commas after 
the source file specification, Note* however* that the extension 
eissumed in this case will be PKT , 
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Output Parameters; 

These parameters allow the user to spec i ty what type of 
output is wanted in addition to the object file. If a print file 
is specified? any print output is »iritten in that file instead of 
Deinc] sent, to the printer, if the semicolon but no parameters are 
sped tied f the only output is the object file (if in this case a 
print file i^as specified it would be null). 

The UATAbUS 1100 compiler can output to eitner a local or 
servo printer. The compiler is sel f-conf i qur i ng in this respect 
and will output to whichever printer it finas connected to the 
system I/O Pus, Since the compiler looks first for a servo 
printerf output wi 1 1 be to the servo printer if ooth a local and 
servo printer are addressable by the system. 

Any source code lines which have errors are cHsplayed on the 
screen during pass lit with the appropriate error flag, 
Addi t i onal 1 y # the compiler displays at the lower left corner of 
the screen the current line number beinq compiled? for every lOth 
line, Every lOth line is indicated because displaying the line 
number for every line would slow down the compiler. No numt)ers 
will be displayed if the proqram is fewer than 10 lines long, 
Ihis line number display is cleare^i when processing of included 
files begins or ends? so the line nun. be r display will rlink off 
momentarily during compilation of source files using included 
f i 1 es , 

lo specify output options* a semicolon plus one or more of 
the fol lowing should be placed after tne last file specifications 

L A listing of the compilation results is printed. tach line 
of source code is numbered and the object code location 
counter value for the first byte of code generatea for the 
line is listed to tne left of eacn source code line, A '+* 
appearing as the first character of a line causes a new print 
page to be started. The rest of the line? following the t tiay 
be used as a comment line, A '** anpearinq as the first 
character of a line causes a new print pane to oe started if 
the current line is within tv».o inches of the bottom of the 
current page, ^ good way to improve tne readability of a 
t^roQram is to beoin each section or routing ^ith a comment 
tsefore which a line is entered which contains a st or in its 
first column. This will ma^e sure the cc'Tment aof^ears on the 
same page as the first lines of tne cooe to wnicr it is 
at tached. 
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A listing of the compilation results is printed and the 
generated object code is listea to the le^t of the source 
code. Printing the object code usually makes the listing 
about twice as long, if this option is qiven^f the L option 
IS implied iin<.1 need not also t^e given. 



implied unci need not also he given. 



I I he source code for lines with errors will be f>rinted in 

addition to being displayed on the screen. This parameter 
has no meaning if the L or C options are given since listings 
produced under those options will include error flags anyway, 

K The line numbers for referenced labels in an operano string 

will be printed at the right margin of the listing. The line 
number is the line on which the Referenced label was defined. 
If the Lr C^ or E option is not also given^ this option has 
no effect. This option may be given instead cf or in 
aodition to the X option, the K option is especially 
convenient with GOTO or CALL instructions in following the 
logic path of a complex set of code. Note that for the R 
option to be effectTve^ a printer with at least ISO column 
printing capability must be used, 

X A cross*ref erence listing is printed at the end of the 

compilation. There will actually be two cross-ref erencess 
one for the data labels and one for the executable labels, 
F.ach cross-reference is sorted al phabet i cal I y t The data or 
executable label is given preceded by the octal location 
where the label was defined and followed by a list of all 
line numbers in which the item was defined or referenced. An 
asterisk flags those line numbers which are definitions. The 
SORT ut i H ty i s cal 1 ed by the compiler to do the actual 
reference sorting^ and the messages displayed on the screen 
will be appropriate to the progress of the sort, A 
cross-reference may be obtained regardless of whether a 
listing was requested', 

D A copy of the source code is displayed on the screen during 
the compi T at i on. 

If a listing has been requested* the compiler will ask; 

rlLADlMb; 

Ihis may be /O characters long and is printed at the top of each 
pane. Indicating the time and date of the listing is helpful in 
Reeping listings in chronological order. The source file name Is 
automatically listed to the left of the heading. 
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txamplesi 

uBl ICMP PRQGKAi^. 

Inis IS the si molest compilation specification. The source 
co'ie fouotj in file PROGHAf-^/ T X [ would or* compiled vith the object 
code placed in file PROGNAh/DHC. no other output woulo be given 
excerpt for errors displayed on the screen, 

DbUCHP CHfcCK,CHtCKi^iU;CX 

The source code in CMICK/TaT would ae compiled and the object 
code placed in CHECKMtj/DbC • A listing would be printed on the 
printer and consist of the source ond opject code witn a data and 
executaole laoel cross-reference at the end, 

LibUCt^P FlLt :DHO, ,h iLtLST/rxTjDPUlX 

The source code in rlLE/TXT on drive U would be compiled and 
the ot)ject code placed in FlLt/D^C on drive 0, a copy of the 
source code ani:i a data and laoel cross-reference will bew-ritten 
in f ILfcLSl/TXr on drive 1, 




If a compiler print option (l, C, t, or X) is selected, the 
onnt is not being sent to a print file, ana there are no printers 
attached to the diskette UOOr the compiler will progress until 
the first print buffer is full, and wait at that point for a 
printer to oecome ready. This implies that if there is no printer 
at all attached* the compiler will enter a perpetual wait loop. 
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Two Jirectives r\r^ availabh* in t 
^lentione'l in iSecti'-Jn d,fl, line is the 
) a b e i t o t: e a s a i cjn e a a decimal numeric 
y or exam p 1 e : 



h e [.) A i A b U S 11 1) i * c o n- f-? i 1 e r as 
biHJ statement whic n allows a 
value from 1 t n r o u g h c? 4 9 , 
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A label which Is defined in this manner may be used as tab values 
in disk I/u statements and as cursor positions in KE.Y1N and 
DISPLAY statements. This is particularly useful when one defines 
a data base record format. If all item positions within the 
record are defined using the tQU directive/ then changes in item 
positions can be achieved by simply changing the ore directive 
viilut?. If the tuu were not usedf the user would have to hunt 
throut^h all pro<4ram8 to change all disk l/il statements to change 
the item position in the record. 

The second compiler directive is INCLUDE (the compiler also 
accepts a mnemonic of INC) which al 1 ows anot her text file to be 
included at that point as if the lines actually existed in the 
main file. For example: 

INC RECDEFS 

wi 1 1 cause the f i le RECDEFS/TXT to be scanned as i f all of its 
lines existed in the place of the INCLUDE line. The assumed 
extension on included files is TXI but may be specified to be any 
extension. If no drjve is specified^ all drives starting with 
drive zero will be scanned for the file. Inclusions may be nested 
up to four deep^ with a maximum of 16 included files. The INCLUDE 
directive can be used to include a file containing the tQU 
di rect ives and data variable definitions which define the format 
of a data base file record. This can prevent the programmer from 
having to keyin the data area (and common data area) definitions 
over and over for each program to use a certain data file. It 
also will make it much easier to update the data area definition 
since the programmer would have simply to update the one text file 
and then compile all the programs (which would incluoe the 
modified definition file) to update all programs to the new data 
area def i ni t i on, 

8, a Compilation diagnostics 

The compi ler prints and displays diagnostic messages on the 
listing to help the programmer debug syntatical errors in his 
code. These messages take the form of an error code letter at the 
left of the listing and an asterisk under the line at t he posi t ion 
of the scanning pointer when the error occurred. The letters are 
E for an expression error (a generalized syntactical error) rU for 
an undefined variable or labels and I for an undefined 
instruction. In the case of E errors a number is given on the 
line *«ith the asterisk pointing out the error position in the 
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source line. This number refers to the list of cjetaileci error 
explanations in Appendix C of this oocuffient. If any of these 
f 1 aqs appearr the compiler will flag the program as being 
non*execut abl e , If the faulty program is then executed^ it will 
return control to the MASHlK program or to DUS.C, 

The UATAbUS 11 00 system uses the i.JUS loqical file zero for 
reading and writing all data to and froni the aisk. This it plies 
t h cj t <i segment boundary may not be crossed o y the object c o a e 
during a klAO or tAjRIlt statement (since fetching the statement 
also involves disk I/O), For this reason* the DATABUS 1100 
compiler will insert a lAfiPAGL instruction if it detects a READ or 
'vRilt statement crossing a segment boundary. Normal ly# this is of 
no particular concern to the user* however* programs using TABPAGfc' 
and aoinci extensive optimisation should be a^ftare that this may 
occur, 

B,b Disk space requirements 

The DAlAdUS IIUO compiler maintains its label dictionary on 
disk in the file named USCUI C T /SYS, Moreover* this file is always 
placed on tne same drive as the output object file because it is 
reasonably certain that that drive will not be write protected* 
I- or these reasons* there may not be more than ibU files named (25b 
if the ot")ject file name already exists) on the disk onto which the 
o t) J e c t f 1 1 e 1 s t o b e w r i 1 1 e n • 

Furtner* if a cross reference is desired* there must be four 
more file name places available among the drives on-line. One of 
the file names that will be in use during tne compilation is 
uSCHtK/SYvS (the file onto which the compiler writes information 
apout each label reference). Three files will be generated by 
SUHl; *StlKTiMRG/3yS* *SOKTKt:Y/SYS* and DSCNEl T /S YS , The first of 
the two files by SLIRI are scratch files* and the third is a 
tag-file pointing back into the USCHLF/SY3 file. At normal 
comoletion of the compilation* all files mentioned above (except 
the output ot)ject file) will have been deleted and the file space 
again made available to the user. 
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This chapter discusses lodamq the uAlAliUS ilOO System on 

PisKette under UUS.C; and the use of me DaTABUS IlOO Interpreter. 

The use of the DATABUS UOO Compiler is oiscusse.-? in the previous 
chapt er • 

9, 1 System Load! ng 

The DATAbUS UOO System is avail aole on either Cassette or 
Diskette media. The DiJS files furnished with DATABUS UOO are the 
Interpreter, Qiiil/Cm and DbU/!)vl thru DnU/UVbr the Compilerr 
DtiUCNP/CHD and DBUCNP/uVO tnru DBUCnP/uV^; DBriACK/Cl^Df and 
ROLLOUT /3YS. 

9,1 »1 Loadinq From Cassette 

The DATABUS UCO compiler ana interpreter system programs are 
contained on one cassette. The cassette is in tne DNf- (DOS 
Multiple Pile) format which includes a directory of tne files on 
the tape. To load the DATABUS lU'U files to Diskette^ keyin: 

.; MIN J A 

The HlN (Multiple liO program will oe activated and will 
display the date of creation of the tape, the tile names in the 
tape directory^ and each file name as the file is being loaded. 
If the file already exists on the diskette, the niH program wiU 
ask if it is to be overstored. The operator can decide to 
overstore the file or can tell it not to overstore the file in 
which case MIN wiU allow the file to oe stored under a different 
name. Consult the DOS USER'S GUIDL for further information on its 
ope rat i on , 

Ihe i)AT'\BUS lU'O interpreter system tiles can pe re-named to 
cHiy name desired as lonq as the commano ti1o ann all the overlays 
have the same name, hor example, it u^n\/i'0 was re-named Db/CMDr 
then UhU/OVl thru l^bU/Uv") woula have to tie nameri ut^/Hvl thru 
-Jb/Uvb. 
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9,1,2 Loaaing from Diskette 

If the DATA8US 1100 System is obtained on Diskette mediaf 
additional copies of the saystem should be generated for oackup 
purposes using the DOS,C commands, DQSGtN, COPY, and/or BACKUP, 

9,<? Profjram F.xecution 

If the DATABUS 1100 Interpreter is named DBll/CMD then a 
DAIABUS 1100 program can be executed by entering: 

DBU PKQGA 

The DATABUS program compiled and filed under the name PROGA/DBC 
will begin execution. This program will continue executing unt.il 
an irrecoverable error is detected or until a STUP instruction is 
executed. At this time system control will return to DOS, C, 

The general form for the DATABUS llOO interpreter command is! 

DBU t<object>l t;<parameters>l 

If a DATABUS 1100 program is not specified, the Interpreter will 
search for a special program cataloged as MASTEH/DBC and begin 
executing this program! 

DBU 

The master program will continue execution until a STQP is 
executed, at which time control will return to DOS,C, In any 
case, the very first program to begin execution under DBU is 
considered to be the master program, regardless of •^hat name it 
has. 

The master program can cause another DATABUS UOO program to 

begin execution through the use of the CHAIN instruction. In this 

case, when this new program executes a STOP instruction, control 

is transferred to the start of the master program instead of to 

UUS,C, 

1 wo parameters are available for setting the Databus internal 
clock. These are the clock set parameter and the oate set 

parameter, Ihe clock set parameter has the form: 

C h h : m m ; s s 
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where hhsmmess is the time used on a d^ hour clock, iv;ote that 
Doth :mm and :ss are optionalr ana 1 f omitted are assumed zero. 
Hence, in order to set the time to 19!^b, the oarartieter would be 
Cl^:?b • Ihe Ocite set parameter has the form; 

Dyy,dad 

-vnere yy is the last two digits of the year C ?b tnru '?^) i^r^^i ddd 
IS the Julian date. hor examplei- Narch S, l^^ll would De specified 
as 

i)/7•06^ 
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SyiMTACnC DtFlNITIOfNS 



condi t i on 



The result of any arithmetic or string 
operation; OvfcR, IJ:S3* tQUAL, ZfRO/ or 
1 S ( t Q U A i, ana ^tnu are t uj o n c^ m e s for the 
same condition). 



character strinq 
event 



Any string of printing ASCII characters. 

The occurrence of a oraqram trap: PARITY* 
RANGt# FURMAT, CFAlL, or JfJ, 



1st 



name 



A list of variaDles or controls appearing 
in an input/outout instruction. 

Any combination of letters (A-Z) ana 
digits (0-9 J starting with a letter (only 
the first eight characters are used). 



I aoe 

nvar 



A name assigned to a statement, 

A name assigned to a statement defining a 
numeric strinq variaDJe. 



nval 



A name assigned to an operand defining a 
numeric string variable or an immediate 
numeric value. 



nl 1 t 
svar 



An immediate nu-neric value, 

A name assigned to a statefr^ent defining a 
character strinn variable. 



sva 



A name assiqnea to an operand ciefininq a 
character strina variable or a -quoted 
alphanumeric c h a r a c t (.? r • 



slit 



A r> i rr n\ e :,n a t e c ri a r a c t e r string^ enclosed 
in aouDle quote»s ("), 



n 1 1 st 



A series of contiguous numeric variables. 
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slist A series of contiguous string variables. 

rn A positive recora number ( >= 0) used to 

randomly HfcAD or t^JRITt on a file, 

seq A negative number ( < 0) used to WtAD or 

vVRITt on a file sequent i al ' y • 

key A non-null string used as a key to 

Indexed accesses, 

null A null string used as a key to an indexed 

read. 



PQK THt FOLLOWING SUWMAHYJ 

Items enclosed In brackets t 3 are optional. 

Items separateo by the ( symbol are mutually exclusive Cone 
or the other but not both must be used). 
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label 


tQU 


10 


label 


tQUATt 


100 




INC 


f 1 1 ename t/ext) 




INCLUDE 


f i 1 ename {/extl 



FILE DtCLARATIONS 

label Kilt 
label IMLt 

DATA DE.I-INITIONS 

label F-'OR'M n,m 



label 


FORi^i 


1 aoel 


DIM 


label 


INU 


label 


KORM 


label 


FOR>' 


label 


i) 1 M 


1 abel 


I'*NilT 



n 

"character string" 

*n,m 

*"aS6,^i" 

*n 

^"CHARACTLK STRING" 
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CUivl HUL 



GUI u 
GUlU 
CjiiTii 

CALL 
CALL 
CALL 

9.1 ]OHH 

r<t I UHN 

STOP 

STUP 

C h A i hi 

CHAIiSi 

[RAP 

IKAPCLN 

HULLUUI 

PULLUUT 



( label ) 

C ] a D e 1) i P t c n f n t i n ) 

f 1 d b *=• I ) T F "; f ! T i r f-. n n i f i r\ n "i 

(nvar) Of- (1 doe) list) 

1 1 a b e 1 ) 

C ] aDe 1 ) IF (conni t 1 on ) 

( 1 a t) e 1 ) IF u i) I (condition) 

IF ( c o f "t d i t i o n ) 

IF i^UT (condi t 1 on) 



IF 

IF 

( s V a 1) 

Cs] It) 

( 1 abel ) 

(event ) 

(svar ) 

(slit) 



i c o n c j 1 1 i n ) 

rM I i T (condition) 



IF ( e V o n t J 
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^lAICH 

M A F C M 
MUVL 

^kJVE ' 

APPEivD 
APPF-ND 

APPfe.i^>n) 

CMUVt 

CNAICH 

dU.'iP 

KKSf. I 

KLbLr 

t r-i I) 3 1 1 
Lt i Si: 1 
ILL A I. 
L X I L i\^ U 
LiJA!) 



(svar . 


) TU 


(svar) 




(si it- 


) TU 


(svar) 




(svar , 


I TO 


(svar) 




(slit: 


> TU 


(svar) 




(svar, 


1 TO 


irsyer) 




( n H t : 


1 TU 


(nvar) 




(nvar. 


1 ]u 


(svar) 




(svar. 


1 10 


(svar) 




(sH t : 


) TU 


C s v a r ) 




(nvar. 


1 Tu 


(svar) 




(sva i , 


1 T 


(svar) 




( S V cj 1 ] 


1 1 U 


( s v a 1 ) 




(svar 








(svar. 


1 BY 


( n j i t ) 




(svar ] 


I TU 


(sva) ) 




(svar. 


) T 


(nvar) 




( svar ' 








( svar . 








(svar 








( s V r-j r . 








(svar. 








(svar. 


) FKl 


ci (nvar) uf (s 


1st ) 


( s V a r 


) li.l 


I J t n V a r ) OF ( s ] 


1st ) 



wPPLiMi' L X 
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STlJHt ($1 it) INTU (nvap) QF 

CKJCK TlMfc. ro (svar) 

CLUCK DAY TO (svar) 

CLIJCH YEAR !(J (svar) 

I YPl: (svar) 

StARCH (nvar) IN (nllst) 10 

StAHCH (svar) IM (sHst) TO 

RtPLACE (svar) IN (svar) 

H£P (si It) IN (svar) 



(sHst) 



(nvap) ^IJh (nvar) 
(nvar) USING Cnvar) 



AKirHMtUC 



ADD 
ADD 
SUB 
SUB 
SUBTRACT 

•"^uur 

MULT 

MULTIPLY 

UIV 

DIV 

DIVIDL 

MUVt 

Muvt: 

COMPARE 

COMPARE 

LOAD 

STURt 

STORE 

CHtCKU 

CKll 

CHECKIO 

CKiO 

UjPuT /OUTPUT 



(nvar 
(nl It 
(nvar 
(nllt 
(nl it 
(nvar 
(nl it 
(nl it 
(nvar 
(nlit 
(nlit 

(nlit 
(nvap 
(nl it 
(nvar 
(nvar 
(nlit 
(svar 
(svar 
(svar 
(svar 



TO (nvar) 

TO (nvar) 

FROM (nvar) 

FROM (nvar) 
nvar) FROM (nvar) 

BY (nvar) 

BY (nvar) 
nvar) BY (nvar) 

INTO (nvar) 

INTO (nvar) 
nvar) INTO (nvar) 

TO (nvar) 

TO (nvar) 

TO (nvar) 

TO (nvar) 

FROM (nvar) OF (nHst) 

INTO (nvar) OF (nl ist) 

INTO (nvar) OR (nlist) 

BY (svar) 

BY (slit) 

BY (svar) 

BY (slit) 



KEY IN (list) 

DISPLAY (1 ist) 

BEEP 

PRIiiT (list) 

PREPARE Ctne)f (svarisl it) 

PREP Cti 1e)f (svar Isl i t) 

LiPE J (f i lei i f i 1 e) r (svarl si i t ) 

CLOSE (f 1 leli f i le) 

vmRITE (f i lei i f i le),rn| seql key [? UHst )j t;] ) 

aRITAB t f i le)r rnl seq; ( list ) {?] 
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v'jEuF I f i 1 e M f i 1 e J # rn j seq 

UPDATb Ci f ne) UUI ist)] in ] 

H L A j t f n e I 1 f 1 1 e J * r n I a e (3 i Ke V i nij 1 ; ( n ( ) i s t { ? J ) ) 

RhADKS t 1 f 1 1e)? (; I ( ) 1 5t (JJ ) i 

DtLtlL (•, f 1 le) , (svar) 

I'mSEKT ( 1 f 1 ) e) ; (svtir) 
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1 if', it. 



Ah Y 
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APPfc;Nuix d, liMPUT/uuTPui lis I ciifnpiiLS 



CUNfKOl USED Ih 
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*p<m>;<n> kO Causes tne cursor to oe positioned 

horizontally and vertically to t^e column 
ana line indicated l-y the numbers <m> 
(horizontal I -"6 0) an i <n> (vertical 1-1?), 
I n e s e n u m t) e r s '^i a y either be literals or 
numeric variat)les» 



*'NJ 



kDF Causes the cursor or printer to be 

positioned in Column 1 of the next line 



*tL 



kD Causes tne line to he erased from the 
current cursor position. 
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kD Causes tne screen to be erasea from the 

current cursor position to the end of the 
line, 

KD Causes the cursor to oe positioned at 

horizontal position 1 of the top row of 
the display and the entire display to be 
erased. 
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Prevents tne echo to the display during 
input operations. 
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K Causes the echo ounnc:! input operations 
KDP Turn on Hey in Continuous for KtYJiv or 

space after logical length suppression for 

DISPLAY and Pi^lNl . 

»\! Turn on space compression durinq '^PHil, 

kDP lurn off Key in Contiguous (turned off at . 
the end of tne statement) or the space 
ofter logical lenoth suppression, 

/i 1 urn of f spact' cot press ion nunnq iA,'K'ITfc, 



*<n> 



Causes a horizontal tab on the printer to 
tne column indicated Py the nunber <n>. 
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*<n> 
*<nvar> 



*iiv 



'Mo action occurs if the carriage is past 
the column indicated by <n>9 

H'^ lao specification for READ or i^RITAB 

operations; the logical file pointers are 
moved to that character position relative 
to the current physical record. 

KDP Suppress a new line function when 
occurring at the end of a list* 

KDP Any characters appearing between quotes 

are displayed or printed when encountered, 
iMote that to include the character (") in 
the strinc^i the forcing character (#) must 
be used. For exaft,ple# "Jack said* 
^♦•DataDoint is greati*^"" would print what 

P Causes the printer to be positioned to the 
top of form, 

KDP Causes a linefeed to be displayed or 
printed, 

KDP Causes a carriage return to be displayed 
or printed, 

K Time out after i seconds fo'' KEYIN 
statement, 

KD Pause for one second. 

K Left-justify numeric variable and 

zero*fill at right if there is no decimal 
point • 

K Ri ght-Just 1 f y string variable and 
blank^f i 1 1 at left, 

KDPlN Left zero*fill string variable, 

K Kestrict string input to dioits (0*9) 
only, 

K Turn-on Text '''^«ode (invort alphanetic 
i nput ) • 

K Turn-off Text M ode. 
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Convert nur^ienc variable to 
"l*^i nus'-overpuncb" forn-at. 
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..'hen an t coae is given by the cor pilar at the left of a ]ine 
of cocie containing an error, the very f^ext line will contain an 
asterisk followed by an fc code numoer ana tjnother asterisk under 
the error line at the position of tne scanninq pointer when the 
error iwas detected. The f.: code numoer refers to the nufT:ber in the 
left column of the following table ana the cor responoi ng error 
expH nation in the riqht column. 



OOOOl The first operand of a CmaTCH or CiviJvE instruction was not 
^n octal number^ a quoted character? or a string variable, 

0000c? The second operand of a Ci'-'AfCH instruction n^as not an octal 
number^ a quoted character, or a string variable, 

OOOui The second operand of a f^^AICh or Appf r.= i) instruction wvas not 
a St r i ng var i abl e. 

OOUOa Ihe first ope r an ij of a iViAILH or APl-T.Ni.) instruction was not 
a string variable or a literal, 

QOOOb Ihe first operand of a RLSt T instruction was not a string 
variable, 

OOOOo The second operand of a Rk5fcl instruction was followed by a 

character that was not a space/ iirplyino that there were 

other operanas following the second operand, RLSLT may 
have only one or two operands, 

00007 The first operana of a BU^iP instruction was not a string 
V a r i a b 1 e , 

OOOIU Ihe second operand of a BUi^P instruction was not terminated 
oy a space/ or had an absolute value ot greater than 127, 

iMjon (he operand of a ChaJTm or kULLUU f instruction was not a 
string variable or a literal, 

OOUlf.' The first operand of a SIuk'L inbtruction ^as not a strin.,i 

variable or numeric variable or literal. The first operand 
of aLlJAD instruction was not s stnrig variable or nurr^eric 
vari ab 1 e. 
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OOOli The second opf?rand of a SlURt or LOAD instruction was not a 
numeric variable, 

000 la The second bperand of a STORt or LOAD instruction was not 
fol 1 owed by either a space or a comma, 

0001*3 iJne of the third thru Nth operands of a STlJkE or LOAD 
instruction was not the same data type as the first 
operand. If the first operand is a string or numeric 
variable^ then all operands after and including the third 
operand must be a string or numeric variable* respectively, 

00016 [he second operand of a MUVt instruction was not a string 
variable or a numeric variable, 

0001/ The second operand of a HUVt instruction was not a string 
variable or a numeric variable, 

000c?0 The first operand of a MOVt instruction was not a string 
variable or a numeric variable or a literal, 

000^1 The second operand of a COMPAHt:, ADO, iiUBTHACT, hULTIPLYr 
or DIVlDt instruction was not a numeric varirjble, 

0002? The second operand of a CMATCH* CMOvEi MATCH, APPtND, 

CHklh, ROLLOUT, COMPARtr AOOf SUbTRACT* MULTIPLY, or PIVIOt 
instruction was not followed by a space (indicating no more 
operands f ol 1 ow) , 

00023 The first operand of a CONPARt, ADD, SUBTRACT i MULTIPLY, or 
DIVIDE instruction was not a numeric variable or a literal, 

OoO^a The first operand of an instruction which may be followed 

by a comma or a preposition was not immediately followed by 
a comma or a space. If a comma follows the operand a 
preposition is not looked for. If a space does follow the 
operand then a preposition must be there, 

0002b The first operand of a GOTO, CmuL, or THAP instruction was 
not followed by a space, 

OU026 The first operand of a TRAP instruction was not followed by 

000^7 The conditional operand UNUTl IDS, tUUAl, IcHV, etc) of a 
bulU, CALL, or TRAP instruction was not followed by a 
space. 
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uuOiO rhe> conditiona) ODerand of a GUKj or CALL instruction was 
not I'MUli tUS, tUUAL* ZIHO , LtSS, or ilVlR; or the 
conditional operano of a FRAP instruction was not PARITYr 
iVAi\)Gt, POHHATr CFAIL, or UU 

uOOii The first operand of the THAPCLk instruction *as not 
f o 1 1 owed by a space, 

OOOic' Ihe first operand of the TRAPCLK instruction ^as not 
PAkIIY, KA-^iGF, FGRHAlf CPAIL/ or lU, 

OOOii An operand in a KtVlN or DISPLAY instruction was not a 
string variable or a numeric variable. It was an tUlh 
f-ILEf or IP-"JL£ variable, 

OOOiii A control code (letter or letters followinq an asterisk) in 
a KEYIN or DISPLAY instruction was not *Ci *l , *h0 *T, *R, 
*P# *tLy *tFf aES* *iU *EUf^a, or *EDPf- . 

00035 A variable <n> in the *P<n>!<n> control coae of a kEYIN or 
UloPLAY instruction was not a number (did not have a first 
character of 0-9) nor a nu.-^.enc variable. 

OOOit) A variable <n> in the *P<n>;<n> control code of a KEYIN or 
DlbPLAV instruction was a numeric literal with a value for 
the first Chori2ontol position) <n> that was not 1 s< <n> 
-< 60i or with a value for the second (vertical position) 
<n> that was not 1 =< <n> =< i^, 

00037 A literal in a KEYIiv or DISPLAY i nst rue t i on was not 

followed Dy a cornma^ spacer semicolon^ or full colon, 

OOOao (he last character in the operand strinfj of a kEYIij, 

uliiPLAYf PRINT, REAP, i^RUt, or ^^RIlAb instruction was not 
aspace, colon, orsemicolon, 

000^41 Ihe ena-of'-line was encounterea before an operand string 
terminator v^as encountered for a \^tilN, DISPLAY, PRINT, 

READ, wRllE, v'.RllAb, aEGF, REAliHS, ilpDATF, UPEN, PREPARE, 
1 tv S b R T , or D E t F. 1 f: instruction, or 

] ho character t o 11 o w i n > j t h (.> -first <n> in t h (=■ * P < n > ; < n > 
control code of a NtYl . or i)I:)PLAY instructio'i was not a 
c t) I o n ji o r 

A juotea string or octal numt-ier was specified in the 
operano strinq of a hE-U) instruction. 
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OOUacf An tiJUATt* f-lLtr or IFILt name was specified in the operand 
list of a PRINT instruction, 

00045 A character following an asterisk indicating a control code 
in a PNINT instruction was not i- , •^ Lr fp Cf N, or a 
number O"'^, 

OOUaa Ihe first operand of a KfeADr wRITh, milf^B, or v^fcUf- 
instruction was not a f-Ili. or IFlLt name, 

OUO^S fhe character following the first operand of a KtAD^ WRITtf 
i^NlTAbr or ^EUF instruction was not a comma, 

uOuab The second operand of a HtAD^ V'iHlMr wRITAB# or WEUF 

instruction having an IFILEI name as the first operand was 
not a string variable name nor a numeric variable name, 

00047 Tne second operand of a KtAD, t^RITL^ wRHAB^ or v^EOF 

instruction having a FiLk name as the first operand was not 
a numeric variable, 

ouObO The character following the first operand of a RtAUKS 

instruction or the second operand of a READ instruction was 
not a semicolont 

oOObl Ihe character following the first operand of an UPDATE 

instruction or the second operand of a t'-iRlTt instruction 
was not a space or semicolon, 

OOObi? An operand in the operand string of a READ or READKS 
instruction was not a tab (*<number> or *<nvar> or 
*<EQUname>) nor numeric variable nor string variable* or 

An operand in the operand string of a (aiRITE or UPDATE 
instruction was not a space compression control (*"♦- or *-) 
or a quoted string or numeric variable or string variable* 
or 

An operand in the operand string of a iflif'ITAB or UPDATE 
instruction was not a tab C*<number> or *<EQUname>) or 
space compression control (*+ or *-) or quoted string or 
numeric variable or string varible, 

000S3 A tab operand (*<number> or *<EUUname> or *<nvar>) was used 
in a READ instruction that had an IFILE name as operand one 
and an NVAR name as operand two. 
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OuOb^ The character following the * cont rol - i ndi cator character 

in a v^NllE instruction was not a + or -, The compiler will 
recognize only the *t or *- control for the I'^RITt 
instruction^ use the j'^iRIJaB i nst rue t i on t o use tab control 
(*<nu!nber> or *<nvar> or *<tyUna.T.e>) for output to a disk 
file, f-or an Index-Sequential tile, to use tab control to 
upcJate a record in the file* use tne LhM)aU instruction, 

UUubb The operand foHowing an * control-indicator character was 
a quoted item, Numeric literals may be usea but they may 
not be enclosed in ooudI e-»quote ( " ) symbols, Numeric 
literals^ numeric variable names* or equated names may be 
used to specify tab values in KtYl:^, i)ISPlAY, CUNSOLE* 
HtJiOf ^RlTAIi, KtADKS* or UPDA'Tt instructions. 

OdObb Fhe operand following an * cont ro 1 -i nm cator character was 
not an unquoted numeric literal* a nu-T^eric variable name* 
or an equated name. 



U00b7 1 he first operand of 
i^n IFILt nar^e. 



a KEADKS or UPOATh i nst rue t i on was not 



00060 A tab in a READ* /^RITAB* RfcADKS* or UPDAIt instruction was 
greater than 2^9, 

00061 A tab in a READ* i^RITAB* HEADKS* or UPUATt i nst ruct ion was 
zero, Note that if the value of an £QU*'d tab is 
incorrectly specified the compiler generates a value of 
zero for the tab* and each use of that tao will generate 
this error, 

0006f' A character following an operand in the operana string of a 
READ* l-'vRnE* rvRIlAb* READKS* or UPDATE instruction was not 
a space* comma* semicolon* or colon. If the instruction is 
a ivKlTAH or UPDATE instruction a semi col on is assumed, 

0u0fe3 1 hie Character following the seconcf operand of a «EUP 
instruction was not a space, 

U'JOba fhe character following the second operand of a ^^RllAB 
instruction was not a semicolon. 

uiMib':) Ihe first operana of an uPt'i instruction was not a ^ILE or 
Jf-ILE name or the first operanp of a PKbPARE instruction 
was not a KILL name, 

ODObb [he first operand of a PRr pAPt; instruct lori wan; an If-ILE 
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name. 

There is no provision within the UAtABUS UOO INTERPRETER 
for the creation of an i ndexed-sequent i al file. The file 
must first exist and be indexed by means of the INDEX 
program before the file may be opened by the OPEN 
instruction and accessed^ increased# or decreased by means 
of the READ, ^'.RITE* WRITAB, nEUF, NEADKS, UPOAIE, and 
DELEfE instructions. 

0U067 Ihe character following the first operand of an OPEN or 
PREPARE instruction was not a comma, 

000/0 The character following the second operand of an OPEN or 
PREPARE instruction was not a space, 

0U071 The second operand of an OPEN or PREPARE instruction was 
not a string variable name or a literal, 

0007<? The end-of "l i ne was encountered before a first operand was 
encountered in a CLOSE instruction, 

00073 Ihe first operand of a CLOSE instruction was not a f-XLE or 
IFILE name* 

0007^ The character following the operand of a CL03E instruction 
was not a space, 

0007b A character following an operand in a STORE, LOADi or 
dRANCN instruction was not a comma, colon, or space, 

00076 The first operand of a CLOCK instruction was not TlMEr DAY, 
or YEAR, 

U0077 A comma or the preposition TO was not used between the 
first and second operanos of the CLOCK instruction, 

00100 Ihe second operand of a CLOCK instruction was not a string 
V a r i a D 1 e • 

00101 The character following the second operand of a CLOCK 
instruction v»as not a space, 

oOiOi^ The first operand of an INSERI or DELETE instruction was 
not cin if- ILE name. 

OOlui Ihe character following the first operand of an INSERT or 
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UtLtlt Instruction was not a cof»'^ma, 

uolua The second operand of an IuSEkT or OFLETb instruction was 
not a string variaDJe name, 

O.U(/S Jhe character fo! lowing the secc-na oper^?nd of an ii^SEHT or 
iJfcLfc It instruction was not a space, 

^)0l()6 An a]ph«t)etic cnaracter string -^here a preposition should 
have been was not recognized as c) preposition! hY, Ji), UF, 

FHiJM, or iNTUr or 

A numeric I iter a] was used Dut ^as not enclose a in double 
quote " symbols, 

010/ An EUUAlt. directive was given atter an e^eecutable 

instruction was specifiea, 

OUllO An EQtJAld directive was given but no label was specified, 

00111 fne first character of the ofserano of an t<.>)UATi oirective 
was not 1 thru ^i » a first character of implies an octal 
numper which is not allowed in the hUUAll directive, 

00 U 3 Ihe vol ye specif iea for an LuuAIt directive was not from 1 
thru f?^9, 

U0 1U4 The file specified in an IfMCtUUt. directive was not found on 

'J 1 s k , 

tH)li'3 The character after the first o^^erand of a Dli" instruction 
was not a space, 

00 1 in The operand value of a Ui-i instruction -vas greater than 

0011/ For an llvIT instruction or an instruction using a string 
literal; 

• jO operand was found,- or 

A character after a <Juote.i strum u. as not corr?r.a v- r space ^ 
or 

Jne end-of - 1 i ne was encountered t-efore tne enoinn quote of 
a c^joted operand wcis encountereuf or 
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f he end-of • I i ne was encountered immediately a*ter a forcing 
cnoractep#wasqiven»or 

A character following a comma following a quoted string op 
an octal number was not a oout) 1 e-quote symool or a zero^ or 

A quoted strinci ot greater than iPl characters was 
spec i t i ed» 

O0l£?u For an INIT instruction or an instruction us^ng a string 
literal! ' 

Ihe character following the ending double-quote symbol of a 
quoted string was not a comma or a sp>ace. 

001^1 Hor an instruction using a string literalr the literal was 
over 40 characters long, 

uulf^c? Ihe end"-of-1ine was encountered before the first operand 
(data item length specification) was encountered for the 
DIM 1 nst ruct i on, 

001t?i Ihe end-of*Hne was encountered before the first operand 

(numeric data format specification) was encountered* or the 
numeric data was specified to be more than ii characters 
long, for the FlJRM instruction, 

OOl^a A closing double-quote symbol was not found for the operand 
(numeric data format spec i f i cat i on ) of a ^-UR^ instruction* 
or 

A numeric literal was used but was not enc1or,ed in double 
quote ( " ) symbo 1 s, 

t)(/l<fS f-or the operand (numeric data format specification) of a 
FUKi'l instruction or for a numeric literal onerand; 

[he following applies for the KJK*-! instruction if a 
i nt eger-oec i mal length was specifiea; 

iMo character af t er the first numeric string (specifying 
the integer part lenc:)th) was not a space or a aecimal 
poi nt * or 

Ihe character after the first numeric string ^as a decimal 

point but no numeric string specifying the aecimcO part 
I e n g t n w a s f o u n d , 
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Ihe fo) lowing applies if a quotea strinci whs sr^ecified: 

There were '"ore than \dl chardcters in the numrer 
55 D e c 1 f i c a t 1 (,) n , o r » 

[nere wert? no dioits spec ^ f i f?o, or 

Inere was a dfjcimril point sp^ec i f i ed t-ut no dimts followed 
} 1 1 or 

fho ngneric literal was not enclosed in douole Quote (") 

S V v, D O 1 S . 

injlib hor t^e OlMr IN1T# or F uK:>'i i ns t rue t i ons S tne end-of-line 
vvas encountered before an operand ^as encountered, 

OOi'ct 1 An operand was not a quotea 1 1 e "> # a n u m r > er , or a label, 

U0i3*' The second character after the or>eninq noun ! e-ouot e symbol 
In the operano of a C<^u:.)vt or CMATCh instruction was not a 
douD 1 e-quote symbol. The f ore i nq charac t er does not apply 
in t fi e s e two instructions ti e c a u s e it is not necessary* 

UU151 Kor an instruction using a literal, the character after the 
ending douo 1 e-quot e sypa)ol was not a space or cof^ma, 

QOlir^ An octal number was specified out the niirr.per was not in the 
range U through Oi/ inclusive. 

001 Si Kestricted error indicatec? -'■ consult Systems frncn neer, 

urtiia Hestricted error incsicateu -- consult bysten^s Ingineer, 

Oulib Hestricted error indieaten -- consult 5vstems Engineer, 

00 136 Kestricted error indicated -- consult Systems fcnqineer, 

U0ii7 liiternal compiler error, 

uUlai! We*; t r i c t ed error indicater.i •- consult Systems Tnnineer, 

'Jv)l'4l Ihe operand of a Hj instruction was not an unoiiotec numeric 
literal ^ i t h a value of 1 t ^ r o u i h iO , 

ooi-ir Ihe operand of a vKuh instruction ^as not an i\iVAK name, 

.' v) I '4 :> r^ e s t r 1 c t e a error i n -i i c a t e d - - c n n s u I t ;> v s t e rr s i n fi i n e e r • 
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00l^^ WestPicted error Indicated -- consult Systems Engineer, 

00li4b HestrictiJd error indicated *- consult Systems Engineer, 

UUiab CHtCKlOr CMfcCKUf REPlACk operand 1 hot a svar, 

uuia/ C^^0, CKllf KEP operandi not a svar or slit, 

UUl'iO SEARCH operand 1 not svar or nvar, 

OOlbl SEARCH operand «2 not same type as operand 1, 

uOlb^ List" length not nvar in SEARCH, 

UA)lb3 Index not numeric in SEARCn, 

uuibu \R1IE control was not ^f^iP, 

UOlbb .'.RITt control was not */!- • 
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1 f an event occurs and the trap Cfvrresponning to that event 
nas not been set ? t he rfesscuje : 



* tKHUN 



* ILLLL X 

* LLLLL X 



or 



first form appears for all 




parity failure 

record nurnber out of range 

record format error 

c h a 1 n f a 1 I u r e 

I/i) error 

illegal operation code 

call stack underflow or overflow 

interruptions already prevented 



Note that the last three items shown at)ove cannot be trappedt The 
H error will only show up if somehow an invalid oDject file is 
executed or if the system is failing. The U error will happen if 
the programmer forgets to perform a call or in some other fashion 
manaqes to execute a HETuKk instruction without a corresponding 
CALL having t)een previously executed* or calls ore nested more 
than eight levels deep. The A error will happen if a PI 
instruction is executed while, interrupts are currently prevented. 
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The events that way be trapped are shown below. The 
capitdlized name is the one used in the TRAP statement. 



PAkllY 



RAiNiGt 



FUHMAT 



Cf-AIL 



ID 
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A « an access sequentially by key was attempted before any indexed 

sequential access was made using the logical file, 

B - the HEAD mechanism rar\ off the ena of a sector v^-ithout 

encounterinq a physical end of record character (005), 

C - an operation on a closed logical file was attempted, 

D * a non^RtADf non-DELETE# indexed sequential operation was 

attempted where the specifiea key already existed in the index, 

E - an top mark without at least four zeroes was encountered* 

I - the index file specifiea in an OPEN statement does not exist 

on the specified driveCs), 

J • the index file found by the OPEN statement does not reside in 

the correct f'hysical location on the disk (index files may never 

be movedf tney must always be re-created), 

K - a null key was supplied in an operation where the key may not 

be nu I 1 • 

M •• the data file specified in the UPEi^ statement aoes not exist 

on the specified drive(s), 

N - the data file name specified in the OPEN or PREPARE statement 

was nul 1 , 

- the index tile name specified in the OPEN statement was null, 

P * the file specified In the PREPARE statement had some type of 

DOS protection (either writer delete? or both), 

T * the tab value in the READ or wRITAB statement was off the end 

of the sector, 

U * an EOF mark was encountered while a record was being deleted 

in the indexed sequential file, 

V " one of the indexed sequential access overlays (Dbll/OVl? 
DB11/UV^# or DBU/0V3) could not be loaded by the DOS loader, 
m ^ an index file pointer sector could not be read, 

X * an inaex file header sector could not be read, 

Y • the R,I,B, of the data file pointed to by the index file could 
not De read, (vwXY errors can be caused by parity errors? the 
drive being switchea off line? or the disK cartridge being swapped 
with another while an operation is taking place.) 
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